(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    155350,       3375]
NotebookOptionsPosition[    151459,       3256]
NotebookOutlinePosition[    152309,       3283]
CellTagsIndexPosition[    152266,       3280]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellMargins->{{63, 10}, {5, 10}},
 CellChangeTimes->{{3.527414300974654*^9, 3.5274143027007527`*^9}}],

Cell[CellGroupData[{

Cell["ESERCITAZIONE_ 01", "Title",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5327922965712633`*^9, 3.5327923029516745`*^9}, 
   3.53289086584632*^9},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell["Parte A", "Section",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532895143686636*^9, 3.5328951474150424`*^9}, 
   3.532972336248852*^9}],

Cell[CellGroupData[{

Cell["dati", "Subsection",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5274249452262654`*^9, 3.5274249462090673`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Gamma]", "=", "19"}], ";", 
  "\"\<[kN/\!\(\*SuperscriptBox[\(m\), \(3\)]\)]\>\"", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CurlyPhi]", "=", 
   RowBox[{"35", "Degree"}]}], ";", "\"\<[\[Degree]]\>\"", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", "0"}], ";", 
  "\"\<[kN/\!\(\*SuperscriptBox[\(m\), \(2\)]\)]\>\"", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "0"}], ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellLabelPositioning->Automatic,
 CellSize->Automatic,
 CellBaseline->Baseline,
 CellChangeTimes->{{3.527307825887992*^9, 3.5273079749195156`*^9}, 
   3.527314372238575*^9, {3.52731829234826*^9, 3.5273183334543324`*^9}, {
   3.5273184068664613`*^9, 3.527318439844919*^9}, 3.527318534084685*^9, 
   3.5273186409448724`*^9, {3.5273187922495384`*^9, 3.52731881045477*^9}, {
   3.5274140800740194`*^9, 3.527414080298032*^9}, {3.527414202244007*^9, 
   3.5274142220381393`*^9}, {3.5274142969254227`*^9, 3.527414297348447*^9}, {
   3.5274152136548567`*^9, 3.5274152237074313`*^9}, {3.527415616774914*^9, 
   3.5274156214941835`*^9}, {3.5274156660167303`*^9, 
   3.5274156661877394`*^9}, {3.5274157813813605`*^9, 3.527415781599761*^9}, 
   3.5274158982099657`*^9, {3.5274187619587984`*^9, 3.527418765063204*^9}, {
   3.5274257457728715`*^9, 3.5274257493296776`*^9}, {3.527426253304163*^9, 
   3.5274262547861657`*^9}, {3.527426361568353*^9, 3.5274263644699583`*^9}, {
   3.532885092680379*^9, 3.532885104177599*^9}, {3.53288513895006*^9, 
   3.5328852299918203`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Sigma]o", "=", "100"}], ";", "\"\<[kPa]\>\"", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]o", "=", "20"}], ";", "\"\<[kPa]\>\"", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]v", "=", 
   RowBox[{"\[Sigma]o", "+", 
    RowBox[{"\[Gamma]", "*", "z"}]}]}], ";", "\"\<[kPa]\>\"", ";"}]}], "Input",\

 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5273079786947317`*^9, 3.5273079929655476`*^9}, 
   3.527308026538468*^9, {3.5273142904788313`*^9, 3.527314302631253*^9}, {
   3.527314469489146*^9, 3.5273144698791466`*^9}, 3.5273145113128195`*^9, {
   3.527317198589139*^9, 3.527317255342039*^9}, 3.5273185744263554`*^9, 
   3.527318794854743*^9, {3.5274142706489196`*^9, 3.527414276935279*^9}, 
   3.527415776311352*^9, 3.527415818103825*^9, {3.5274159294440207`*^9, 
   3.5274159470252514`*^9}, 3.5274207793543415`*^9, {3.527420980298294*^9, 
   3.527420980750695*^9}, {3.5274235373657923`*^9, 3.527423537630993*^9}, 
   3.5274237710542026`*^9, {3.5274238202582893`*^9, 3.5274238205702896`*^9}, 
   3.5274242272162037`*^9, {3.52742491380461*^9, 3.52742491397621*^9}, {
   3.52742522711876*^9, 3.527425227477561*^9}, {3.5274256297086678`*^9, 
   3.527425629958268*^9}, {3.527425929868795*^9, 3.5274259768092775`*^9}, 
   3.5275169100739174`*^9, {3.52752001077562*^9, 3.5275200214460387`*^9}, {
   3.527520820869443*^9, 3.5275208213998437`*^9}, 3.52752128631186*^9, {
   3.5275270443657675`*^9, 3.527527044864969*^9}, {3.532885054694312*^9, 
   3.532885124098834*^9}, {3.5328852090097833`*^9, 3.532885216856597*^9}, {
   3.532887602599987*^9, 3.532887627372831*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "10", ",", "30"}], "}"}]}], ";"}]], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532887834853195*^9, 3.5328878380200005`*^9}, {
   3.5328897785230093`*^9, 3.53288979065983*^9}, {3.532893390305154*^9, 
   3.5328933951411624`*^9}, 3.532898089445324*^9}],

Cell["\<\
La prima cosa che dobbiamo fare \[EGrave] scrivere le equazioni indefinite di \
equilibrio.\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328856503657584`*^9, 3.532885683547017*^9}, 
   3.5328857164006743`*^9},
 TextJustification->0.],

Cell["\<\
Dato che stiamo analizzando un semispazio indefinito a piano limite \
orizzontale tutte le verticali sono identiche dal punto di vista delle \
caratteristiche meccaniche e dello stato tensionale.
Questa propriet\[AGrave] del semispazio indefinito ci consente di effettuare \
delle semplificazioni sul sistema di equazioni differenziali eliminando tutti \
i termini dove compaiono le derivate parzili risprtto a x e a y.
In definitiva si ottiene:\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{
  3.532885273110296*^9, {3.5328853578496447`*^9, 3.5328856334397287`*^9}, {
   3.5328857402999163`*^9, 3.532885809033637*^9}, {3.532885840717293*^9, 
   3.532885900106597*^9}},
 TextJustification->0.],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["d\[Sigma]x", "dx"], "-", "\[Gamma]"}], "=", "0"}]], "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328859465010786`*^9, 3.5328859809771395`*^9}},
 TextAlignment->Center,
 TextJustification->0.],

Cell["\<\
che definisce univocamente lo stato tensionale sulla giacitura orizzontale.\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328860165296016`*^9, 3.5328860603500786`*^9}},
 TextJustification->0.],

Cell[BoxData[
 RowBox[{"considerando", " ", "che", " ", "a", " ", "piano", " ", "campagna", 
  " ", "sono", " ", "applicate", " ", "le", " ", "tensioni", " ", 
  SubscriptBox["\[Tau]", "0"], " ", "e", " ", 
  SubscriptBox["\[Sigma]", "0"], " ", "possiamo", " ", "calcolare", " ", "lo",
   " ", "stato", " ", "tensionale", " ", "su", " ", "ogni", " ", "giacitura", 
  " ", 
  RowBox[{"orizzontale", "."}]}]], "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532886093188136*^9, 3.532886193621113*^9}, {
  3.532976537899634*^9, 3.532976548195652*^9}, {3.5329795882241917`*^9, 
  3.5329795939962015`*^9}},
 TextJustification->0.,
 FontFamily->"Times New Roman"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["\[Tau]", "xz"], "=", "\[Tau]o"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]o", "=", 
   RowBox[{"\[Tau]o", " ", 
    RowBox[{"z", "/", "z"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]v", "=", 
   RowBox[{"\[Sigma]o", "+", 
    RowBox[{"\[Gamma]", "*", "z"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PuntoH", "=", 
   RowBox[{"Point", "[", 
    RowBox[{"{", 
     RowBox[{"\[Sigma]v", ",", "\[Tau]o"}], "}"}], "]"}]}], ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532886219517158*^9, 3.5328862716836495`*^9}, {
   3.532886577100986*^9, 3.5328866342126865`*^9}, {3.5328875384370747`*^9, 
   3.532887572569935*^9}, 3.532887629603635*^9, {3.532890272685077*^9, 
   3.532890301685528*^9}}],

Cell[BoxData[""], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532976528758018*^9, 3.5329765318156233`*^9}}],

Cell["\<\
A noi interessa conoscere lo stato tensionale sulle giaciture verticali. 
Calcoliamo prima analiticamente lo stato tensionale e poi costruiremo i \
cerchi di Mohr.\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532886275209256*^9, 3.5328864743748055`*^9}},
 TextJustification->0.],

Cell["\<\
In condizioni di stato limite attivo il cerchi rappresentativo dello stato \
tensionale \[EGrave] quello passante per il PuntoH e tangente all' inviluppo \
di resistenza di equazione \[Tau] = \[Sigma]v*tg (\[CurlyPhi]).\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.53288649396844*^9, 3.532886548443736*^9}, {
  3.5328866193302603`*^9, 3.5328867343180623`*^9}},
 TextJustification->0.],

Cell["\<\
risolvendo il seguente sistema si ottiene il centro e il raggio del cerchio.\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532886754988098*^9, 3.5328867789497404`*^9}},
 TextJustification->0.],

Cell[BoxData[
 RowBox[{"(", 
  RowBox[{GridBox[{
     {
      RowBox[{
       SuperscriptBox["t", "2"], "=", 
       RowBox[{"\[Tau]o", "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]v", "-", "s"}], ")"}], "2"]}]}]},
     {
      RowBox[{"t", "=", 
       RowBox[{"s", " ", 
        RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}]}]}
    }], ";"}]}]], "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532886830242631*^9, 3.532887039844599*^9}, {
   3.532887555831105*^9, 3.5328875559247055`*^9}, 3.532887592288369*^9, 
   3.532887642988458*^9, {3.532888420493824*^9, 3.532888421289425*^9}, {
   3.5329683203698072`*^9, 3.532968334534632*^9}},
 TextAlignment->Center,
 TextJustification->0.],

Cell["\<\
Adimensionalizziamo tutto rispetto alla profondit\[AGrave]\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532887108469119*^9, 3.5328871279067535`*^9}},
 TextJustification->0.],

Cell[BoxData[
 RowBox[{"                ", 
  RowBox[{"(", GridBox[{
     {
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["t", "\[Sigma]v"], ")"}], "2"], "=", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox["\[Tau]o", "\[Sigma]v"], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            FractionBox["s", "\[Sigma]v"]}], ")"}], "2"]}]}], ";"}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         FractionBox["t", "\[Sigma]v"], ")"}], "=", 
        RowBox[{
         FractionBox["s", "\[Sigma]v"], " ", 
         RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}]}], ";"}]}
    }]}]}]], "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532887254953377*^9, 3.532887286574632*^9}, 
   3.5328875789035454`*^9, {3.5329681485511055`*^9, 3.532968192137582*^9}, {
   3.5329682224952354`*^9, 3.5329682772357316`*^9}, 3.532976683057889*^9},
 TextAlignment->Center,
 TextJustification->0.],

Cell["Dal quale si ottiene", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532887294811447*^9, 3.5328873081026697`*^9}},
 TextJustification->0.],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   FractionBox["s", "\[Sigma]v"], " ", "=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"1", "-", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"]}]], 
    RowBox[{"(", 
     RowBox[{"1", "\[PlusMinus]", 
      SqrtBox[
       RowBox[{
        RowBox[{
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"], 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox["\[Tau]o", "\[Sigma]v"], ")"}], "2"]}], "+", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"], "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["\[Tau]o", "\[Sigma]v"], ")"}], "2"]}]]}], ")"}], "*", 
    "3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   FractionBox["t", "\[Sigma]v"], "=", 
   RowBox[{
    FractionBox["s", "\[Sigma]v"], 
    RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}]}], ";"}]}], "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532887254953377*^9, 3.532887286574632*^9}, {
   3.532887336978321*^9, 3.532887525223851*^9}, {3.5328875832559533`*^9, 
   3.532887585159157*^9}, 3.53304112835822*^9},
 TextAlignment->Center,
 TextJustification->0.],

Cell["\<\
Ora possiamo calcolare la tensione principale adimensionalizzata rispetto \
alla tensione verticale.\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532888000322686*^9, 3.532888035313547*^9}},
 TextJustification->0.],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["\[Sigma]1", "\[Sigma]v"], "=", 
   RowBox[{
    FractionBox["s", "\[Sigma]v"], " ", "+", 
    FractionBox["t", "\[Sigma]v"]}]}], ";", "                     ", 
  RowBox[{
   FractionBox["\[Sigma]3", "\[Sigma]v"], "=", 
   RowBox[{
    FractionBox["s", "\[Sigma]v"], " ", "-", 
    FractionBox["t", "\[Sigma]v"]}]}], ";"}]], "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532887254953377*^9, 3.532887286574632*^9}, {
  3.532887336978321*^9, 3.532887525223851*^9}, {3.5328875832559533`*^9, 
  3.532887585159157*^9}, {3.532888081208828*^9, 3.532888126682908*^9}, {
  3.5328884755775204`*^9, 3.532888490631547*^9}},
 TextAlignment->Center,
 TextJustification->0.]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Condizioni di stato limite ATTIVO\
\>", "Subsection",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5274249452262654`*^9, 3.5274249462090673`*^9}, {
   3.532968379961912*^9, 3.532968436324811*^9}, {3.532968516134551*^9, 
   3.532968529207374*^9}, 3.5329688459115305`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"s", "=", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"(", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"1", "-", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"]}]], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SqrtBox[
          RowBox[{
           RowBox[{
            SuperscriptBox[
             RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"], 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox["\[Tau]o", "\[Sigma]v"], ")"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox["\[Tau]o", "\[Sigma]v"], ")"}], "2"]}]]}], ")"}]}], 
      ")"}], "]"}], "\[Sigma]v"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t", "=", 
   RowBox[{"s", " ", 
    RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}]}], ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328886616702476`*^9, 3.532888717253145*^9}, {
   3.5328888612725983`*^9, 3.5328888791346292`*^9}, {3.5328889381651335`*^9, 
   3.5328889994420404`*^9}, 3.5328925887757463`*^9, 3.532892747677625*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Sigma]1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"s", "+", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"s", "-", "t"}], "]"}]}], ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532888550145652*^9, 3.5328886055413485`*^9}, {
  3.532888732494372*^9, 3.5328887835376616`*^9}, {3.532889014137266*^9, 
  3.532889065040156*^9}, {3.532889095179409*^9, 3.532889096333811*^9}, {
  3.532890106981586*^9, 3.532890108135988*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]a", "=", 
    RowBox[{"N", "[", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]3", "-", "\[Sigma]v"}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"-", "\[Tau]o"}], " ", ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328891695915394`*^9, 3.5328891714479427`*^9}, {
   3.53289010905639*^9, 3.532890109836391*^9}, {3.5328902366490135`*^9, 
   3.532890247163432*^9}, {3.532890280625491*^9, 3.5328902875363035`*^9}, 
   3.5328904379049673`*^9, {3.5328924530867076`*^9, 3.5328924877031684`*^9}}],

Cell["\<\
si riporta di seguito la tabella contente le tensioni principali e lo stato \
tensionale sulla giacitura verticale.\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328907373006935`*^9, 3.5328908132260265`*^9}},
 TextJustification->0.],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Tabella", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
       "z", ",", "\[Sigma]1", ",", "\[Sigma]3", ",", "\[Sigma]a", ",", 
        RowBox[{"-", "\[Tau]o"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<z\>\"", ",", "\"\<\[Sigma]1\>\"", ",", "\"\<\[Sigma]3\>\"", ",", 
       "\"\<\[Sigma]a\>\"", ",", "\"\<\[Tau]o\>\""}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"Tabella", ",", 
   RowBox[{"Frame", "\[Rule]", " ", "All"}]}], "]"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328901436104507`*^9, 3.5328901925789366`*^9}, {
  3.5328903156475525`*^9, 3.5328904154565277`*^9}, {3.5328905607707834`*^9, 
  3.5328905617067847`*^9}, {3.5328908333344617`*^9, 3.532890834410864*^9}, {
  3.532893417199601*^9, 3.532893426715618*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"z\"\>", "\<\"\[Sigma]1\"\>", "\<\"\[Sigma]3\"\>", \
"\<\"\[Sigma]a\"\>", "\<\"\[Tau]o\"\>"},
    {"1", "123.67922952223459`", "33.51584110176812`", "38.19507062400271`", 
     RowBox[{"-", "20"}]},
    {"5", "197.82904847702832`", "53.60970455332658`", "56.43875303035492`", 
     RowBox[{"-", "20"}]},
    {"10", "291.8966432524438`", "79.10108715246824`", "80.99773040491206`", 
     RowBox[{"-", "20"}]},
    {"30", "670.8193117709708`", "181.78536160165342`", "182.60467337262423`",
      
     RowBox[{"-", "20"}]}
   },
   ColumnsEqual->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   RowsEqual->False],
  "Grid"]], "Output",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{
  3.53289019435734*^9, {3.5328902488950353`*^9, 3.5328902502678375`*^9}, {
   3.5328902836518965`*^9, 3.53289041668893*^9}, 3.5328905624711857`*^9, 
   3.5328925922389517`*^9, 3.532892753855236*^9, 3.5328933984795685`*^9, 
   3.532893443532447*^9, 3.5328980983028307`*^9, 3.532971231642112*^9, 
   3.5329753320975156`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Per", " ", "calcolare", " ", 
   RowBox[{"l", "'"}], "inclinazione", " ", "delle", " ", "giaciture", " ", 
   "di", " ", "rottura", " ", 
   RowBox[{"(", "\[Alpha]", ")"}], " ", "rispetto", " ", "alla", " ", 
   "verticale", " ", "dobbiamo", " ", "prima", " ", "calcolare", " ", 
   RowBox[{"l", "'"}], "inclinazione", " ", "della", " ", "tensione", " ", 
   "principale", " ", "massima", " ", 
   RowBox[{"(", "\[Omega]", ")"}], " ", "visto", " ", "che", " ", 
   RowBox[{"l", "'"}], "angolo", " ", "tra", " ", "la", " ", "queste", " ", 
   "due", " ", "\[EGrave]", " ", "sempre", " ", "pari", " ", "a", " ", 
   "\[Beta]"}], "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["\[Pi]", "4"], "-", 
      FractionBox["\[CurlyPhi]", "2"]}], ")"}], ".", " ", "Per"}], " ", 
   "calcolare", " ", 
   RowBox[{"l", "'"}], "inclinazione", " ", "della", " ", "tensione", " ", 
   "principale", " ", "massima", " ", 
   RowBox[{"(", "\[Omega]", ")"}], "baster\[AGrave]", " ", "calcolare", " ", 
   "quella", " ", "della", " ", "retta", " ", "passante", " ", "per", " ", 
   RowBox[{"(", 
    RowBox[{"\[Sigma]3", ",", "0"}], ")"}], " ", "e", " ", "per", " ", "il", 
   " ", "polo", " ", "di", " ", "coordinate", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Sigma]a", ",", "\[Tau]o"}], ")"}], "."}]}]}]], "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532891058818659*^9, 3.532891417104488*^9}, {
  3.532891710291403*^9, 3.532891846916443*^9}},
 TextJustification->0.,
 FontFamily->"Times New Roman"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Omega]", "=", 
   RowBox[{
    RowBox[{"ArcTan", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Sigma]a", "-", "\[Sigma]3"}], ")"}], "/", "\[Tau]o"}], 
     "]"}], "/", "Degree"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox["\[Pi]", "4"], "-", 
        FractionBox["\[CurlyPhi]", "2"]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"z", "/", "z"}], ")"}]}], "]"}], "/", "Degree"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]", "=", 
   RowBox[{"(", 
    RowBox[{"\[Omega]", "+", "\[Beta]"}], ")"}]}], ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328914743721886`*^9, 3.5328915557263317`*^9}, {
   3.532891860894068*^9, 3.532891885604511*^9}, {3.532892030544366*^9, 
   3.532892040231982*^9}, {3.532892075441244*^9, 3.5328921099641047`*^9}, {
   3.532892165656203*^9, 3.53289216972781*^9}, 3.5329766704374666`*^9}],

Cell["", "PageBreak",
 CellMargins->{{31, 0}, {10, 30}},
 PageBreakBelow->True],

Cell["\<\
si riporta di seguito la tabella contenente le inclinazioni cercate.\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328921979638596`*^9, 3.5328922335319223`*^9}},
 TextJustification->0.],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Tabella", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"z", ",", "\[Omega]", ",", "\[Beta]", ",", "\[Alpha]"}], "}"}],
       "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<z\>\"", ",", "\"\<\[Omega]\>\"", ",", "\"\<\[Beta]\>\"", ",", 
       "\"\<\[Alpha]\>\""}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"Tabella", ",", 
   RowBox[{"Frame", "\[Rule]", " ", "All"}]}], "]"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328919051513453`*^9, 3.532891944338614*^9}, {
  3.532893434125631*^9, 3.5328934416136436`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"z\"\>", "\<\"\[Omega]\"\>", "\<\"\[Beta]\"\>", "\<\"\[Alpha]\"\>"},
    {"1", "13.168149210095581`", "27.5`", "40.66814921009558`"},
    {"5", "8.05121210837142`", "27.5`", "35.551212108371416`"},
    {"10", "5.4172819861831`", "27.5`", "32.9172819861831`"},
    {"30", "2.345843666961141`", "27.5`", "29.84584366696114`"}
   },
   ColumnsEqual->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   RowsEqual->False],
  "Grid"]], "Output",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{3.5329753321443157`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"come", " ", "si", " ", "pu\[OGrave]", " ", "vedere", " ", "man", 
  " ", "mano", " ", "che", " ", "andiamo", " ", "in", " ", 
  "profondit\[AGrave]", " ", "le", "  ", "giaciture", " ", "di", " ", 
  "rottura", " ", "tendono", " ", "al", "  ", "valore", " ", "\[Beta]", 
  RowBox[{"(", 
   RowBox[{
    FractionBox["\[Pi]", "4"], "-", 
    FractionBox["\[CurlyPhi]", "2"]}], ")"}], "  ", "quindi", " ", 
  RowBox[{"l", "'"}], "effetto", " ", "della\[Tau]o", " ", "si", " ", "sente",
   " ", "sempre", " ", "di", " ", 
  RowBox[{"meno", "."}]}]], "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532893150797933*^9, 3.5328933292154465`*^9}},
 TextJustification->0.,
 FontFamily->"Times New Roman"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Point", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Sigma]a", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"\[Tau]o", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328891023710213`*^9, 3.53288915279031*^9}, {
   3.53288989842482*^9, 3.5328899495461097`*^9}, 3.5328900343478584`*^9, 
   3.5328901135491977`*^9, {3.5328928153037443`*^9, 3.532892823727759*^9}, {
   3.532892854007412*^9, 3.5328929090599084`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics", "[", "V", "]"}], ";"}]], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328900452990775`*^9, 3.532890053442292*^9}, 
   3.532893926635897*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Condizioni di stato limite PASSIVO\
\>", "Subsection",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5274249452262654`*^9, 3.5274249462090673`*^9}, {
   3.532968379961912*^9, 3.532968436324811*^9}, {3.532968516134551*^9, 
   3.532968529207374*^9}, {3.5329685811710653`*^9, 3.5329685865374746`*^9}, 
   3.532968836582714*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"s", "=", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"(", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"1", "-", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"]}]], 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SqrtBox[
          RowBox[{
           RowBox[{
            SuperscriptBox[
             RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"], 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox["\[Tau]o", "\[Sigma]v"], ")"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox["\[Tau]o", "\[Sigma]v"], ")"}], "2"]}]]}], ")"}]}], 
      ")"}], "]"}], "\[Sigma]v"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t", "=", 
   RowBox[{"s", " ", 
    RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}]}], ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328886616702476`*^9, 3.532888717253145*^9}, {
   3.5328888612725983`*^9, 3.5328888791346292`*^9}, {3.5328889381651335`*^9, 
   3.5328889994420404`*^9}, 3.5328925887757463`*^9, 3.532892747677625*^9, 
   3.532968592496685*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Sigma]1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"s", "+", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"s", "-", "t"}], "]"}]}], ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532888550145652*^9, 3.5328886055413485`*^9}, {
  3.532888732494372*^9, 3.5328887835376616`*^9}, {3.532889014137266*^9, 
  3.532889065040156*^9}, {3.532889095179409*^9, 3.532889096333811*^9}, {
  3.532890106981586*^9, 3.532890108135988*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]p", "=", 
    RowBox[{"N", "[", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]3", "-", "\[Sigma]v"}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"-", "\[Tau]o"}], " ", ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328891695915394`*^9, 3.5328891714479427`*^9}, {
   3.53289010905639*^9, 3.532890109836391*^9}, {3.5328902366490135`*^9, 
   3.532890247163432*^9}, {3.532890280625491*^9, 3.5328902875363035`*^9}, 
   3.5328904379049673`*^9, {3.5328924530867076`*^9, 3.5328924877031684`*^9}, {
   3.5329686076131115`*^9, 3.532968610031116*^9}, {3.53297296743156*^9, 
   3.5329729694751635`*^9}, 3.5329766418894167`*^9}],

Cell["", "PageBreak",
 CellMargins->{{31, 0}, {10, 30}},
 PageBreakBelow->True],

Cell["\<\
si riporta di seguito la tabella contente le tensioni principali e lo stato \
tensionale sulla giacitura verticale.\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328907373006935`*^9, 3.5328908132260265`*^9}},
 TextJustification->0.],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Tabella", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
       "z", ",", "\[Sigma]3", ",", "\[Sigma]1", ",", "\[Sigma]p", ",", 
        RowBox[{"-", "\[Tau]o"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<z\>\"", ",", "\"\<\[Sigma]3\>\"", ",", "\"\<\[Sigma]1\>\"", ",", 
       "\"\<\[Sigma]p\>\"", ",", "\"\<\[Tau]o\>\""}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"Tabella", ",", 
   RowBox[{"Frame", "\[Rule]", " ", "All"}]}], "]"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328901436104507`*^9, 3.5328901925789366`*^9}, {
  3.5328903156475525`*^9, 3.5328904154565277`*^9}, {3.5328905607707834`*^9, 
  3.5328905617067847`*^9}, {3.5328908333344617`*^9, 3.532890834410864*^9}, {
  3.532893417199601*^9, 3.532893426715618*^9}, {3.5329707610924835`*^9, 
  3.532970774227707*^9}, {3.532971261079364*^9, 3.5329712627485666`*^9}, {
  3.5329729486023273`*^9, 3.5329729493043284`*^9}, {3.532973244318046*^9, 
  3.5329732445520463`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"z\"\>", "\<\"\[Sigma]3\"\>", "\<\"\[Sigma]1\"\>", \
"\<\"\[Sigma]p\"\>", "\<\"\[Tau]o\"\>"},
    {"1", "117.73197533852908`", "434.45127800274247`", "433.18325334127155`",
      
     RowBox[{"-", "20"}]},
    {"5", "194.23335600010154`", "716.754556290791`", "715.9879122908926`", 
     RowBox[{"-", "20"}]},
    {"10", "289.4860285423736`", "1068.2533330689287`", "1067.7393616113022`",
      
     RowBox[{"-", "20"}]},
    {"30", "669.7779746588433`", "2471.5961507646134`", "2471.3741254234565`",
      
     RowBox[{"-", "20"}]}
   },
   ColumnsEqual->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   RowsEqual->False],
  "Grid"]], "Output",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{
  3.53289019435734*^9, {3.5328902488950353`*^9, 3.5328902502678375`*^9}, {
   3.5328902836518965`*^9, 3.53289041668893*^9}, 3.5328905624711857`*^9, 
   3.5328925922389517`*^9, 3.532892753855236*^9, 3.5328933984795685`*^9, 
   3.532893443532447*^9, 3.5328980983028307`*^9, {3.5329712376949224`*^9, 
   3.532971263934169*^9}, 3.532975332269116*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Per", " ", "calcolare", " ", 
   RowBox[{"l", "'"}], "inclinazione", " ", "delle", " ", "giaciture", " ", 
   "di", " ", "rottura", " ", 
   RowBox[{"(", "\[Alpha]", ")"}], " ", "rispetto", " ", "alla", " ", 
   "verticale", " ", "dobbiamo", " ", "prima", " ", "calcolare", " ", 
   RowBox[{"l", "'"}], "inclinazione", " ", "della", " ", "tensione", " ", 
   "principale", " ", "massima", " ", 
   RowBox[{"(", "\[Omega]", ")"}], " ", "visto", " ", "che", " ", 
   RowBox[{"l", "'"}], "angolo", " ", "tra", " ", "la", " ", "queste", " ", 
   "due", " ", "\[EGrave]", " ", "sempre", " ", "pari", " ", "a", " ", 
   "\[Beta]"}], "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["\[Pi]", "4"], "-", 
      FractionBox["\[CurlyPhi]", "2"]}], ")"}], ".", " ", "Per"}], " ", 
   "calcolare", " ", 
   RowBox[{"l", "'"}], "inclinazione", " ", "della", " ", "tensione", " ", 
   "principale", " ", "massima", " ", 
   RowBox[{"(", "\[Omega]", ")"}], "baster\[AGrave]", " ", "calcolare", " ", 
   "quella", " ", "della", " ", "retta", " ", "passante", " ", "per", " ", 
   RowBox[{"(", 
    RowBox[{"\[Sigma]3", ",", "0"}], ")"}], " ", "e", " ", "per", " ", "il", 
   " ", "polo", " ", "di", " ", "coordinate", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Sigma]a", ",", "\[Tau]o"}], ")"}], "."}]}]}]], "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532891058818659*^9, 3.532891417104488*^9}, {
  3.532891710291403*^9, 3.532891846916443*^9}},
 TextJustification->0.,
 FontFamily->"Times New Roman"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Omega]", "=", 
   RowBox[{
    RowBox[{"ArcTan", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]p"}], ")"}], "/", "\[Tau]o"}], 
     "]"}], "/", "Degree"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox["\[Pi]", "4"], "+", 
        FractionBox["\[CurlyPhi]", "2"]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"z", "/", "z"}], ")"}]}], "]"}], "/", "Degree"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]", "=", 
   RowBox[{"(", 
    RowBox[{"\[Omega]", "+", "\[Beta]"}], ")"}]}], ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328914743721886`*^9, 3.5328915557263317`*^9}, {
   3.532891860894068*^9, 3.532891885604511*^9}, {3.532892030544366*^9, 
   3.532892040231982*^9}, {3.532892075441244*^9, 3.5328921099641047`*^9}, {
   3.532892165656203*^9, 3.53289216972781*^9}, {3.5329711618631897`*^9, 
   3.532971199459255*^9}, 3.5329775267697706`*^9}],

Cell["\<\
si riporta di seguito la tabella contenente le inclinazioni cercate.\
\>", "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328921979638596`*^9, 3.5328922335319223`*^9}},
 TextJustification->0.],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Tabella", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"z", ",", "\[Omega]", ",", "\[Beta]", ",", "\[Alpha]"}], "}"}],
       "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<z\>\"", ",", "\"\<\[Omega]\>\"", ",", "\"\<\[Beta]\>\"", ",", 
       "\"\<\[Alpha]\>\""}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"Tabella", ",", 
   RowBox[{"Frame", "\[Rule]", " ", "All"}]}], "]"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328919051513453`*^9, 3.532891944338614*^9}, {
  3.532893434125631*^9, 3.5328934416136436`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"z\"\>", "\<\"\[Omega]\"\>", "\<\"\[Beta]\"\>", "\<\"\[Alpha]\"\>"},
    {"1", "3.627767405252919`", "62.50000000000001`", "66.12776740525292`"},
    {"5", "2.1951985229424484`", "62.50000000000001`", "64.69519852294246`"},
    {"10", "1.4720957571456794`", "62.50000000000001`", 
     "63.97209575714569`"},
    {"30", "0.6360296228203589`", "62.50000000000001`", "63.13602962282037`"}
   },
   ColumnsEqual->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   RowsEqual->False],
  "Grid"]], "Output",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{
  3.5328919842434845`*^9, 3.5328920434767885`*^9, {3.5328920836156588`*^9, 
   3.5328921131153107`*^9}, 3.5328921729258156`*^9, 3.5328926116141863`*^9, 
   3.5328927585976443`*^9, 3.532893398526368*^9, 3.5328934470112534`*^9, 
   3.532898098327832*^9, 3.532971237726123*^9, 3.53297127622699*^9, 
   3.532975332300316*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"come", " ", "si", " ", "pu\[OGrave]", " ", "vedere", " ", "man", 
  " ", "mano", " ", "che", " ", "andiamo", " ", "in", " ", 
  "profondit\[AGrave]", " ", "le", "  ", "giaciture", " ", "di", " ", 
  "rottura", " ", "tendono", " ", "al", "  ", "valore", " ", "\[Beta]", 
  RowBox[{"(", 
   RowBox[{
    FractionBox["\[Pi]", "4"], "+", 
    FractionBox["\[CurlyPhi]", "2"]}], ")"}], "  ", "rispetto", " ", "alla", 
  " ", "verticale", " ", "quindi", " ", 
  RowBox[{"l", "'"}], "effetto", " ", "della", " ", 
  RowBox[{"(", "\[Tau]o", ")"}], " ", "si", " ", "sente", " ", "sempre", " ", 
  "di", " ", 
  RowBox[{"meno", "."}]}]], "Text",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.532893150797933*^9, 3.5328933292154465`*^9}, {
  3.532971323760274*^9, 3.532971356863532*^9}},
 TextJustification->0.,
 FontFamily->"Times New Roman"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Point", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Sigma]a", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"\[Tau]o", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328891023710213`*^9, 3.53288915279031*^9}, {
   3.53288989842482*^9, 3.5328899495461097`*^9}, 3.5328900343478584`*^9, 
   3.5328901135491977`*^9, {3.5328928153037443`*^9, 3.532892823727759*^9}, {
   3.532892854007412*^9, 3.5328929090599084`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics", "[", "V", "]"}], ";"}]], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5328900452990775`*^9, 3.532890053442292*^9}, 
   3.532893926635897*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Costruzione grafica dei cerchi di MOHR", "Subsection",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.527316510690331*^9, 3.527316512936735*^9}, {
  3.5274249363966503`*^9, 3.5274249395946555`*^9}, {3.5328994975758643`*^9, 
  3.5328995106616125`*^9}}],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.527414300974654*^9, 3.5274143027007527`*^9}}],

Cell[CellGroupData[{

Cell["dati", "Subsubsection",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5274249452262654`*^9, 3.5274249462090673`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Profondita", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "10", ",", "30"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"riepilogo", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "5", "}"}], ",", 
     RowBox[{"{", "7", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"riepilogo", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "\"\<grafico\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"riepilogo", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}], "=", "\"\<\[Sigma]a\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"riepilogo", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "\"\<\[Sigma]3\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"riepilogo", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "4"}], "]"}], "]"}], "=", "\"\<\[Alpha]a\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"riepilogo", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "5"}], "]"}], "]"}], "=", "\"\<\[Sigma]p\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"riepilogo", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "6"}], "]"}], "]"}], "=", "\"\<\[Sigma]1\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"riepilogo", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "7"}], "]"}], "]"}], "=", "\"\<\[Alpha]p\>\""}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.52752007344093*^9, 3.5275200952029686`*^9}, {
   3.5275202068835645`*^9, 3.527520241734026*^9}, {3.5275207677669497`*^9, 
   3.5275207707621546`*^9}, {3.5275260221707726`*^9, 3.5275260225919733`*^9}, 
   3.527526801520141*^9, {3.527526855730236*^9, 3.5275269361171775`*^9}, {
   3.5275270011068916`*^9, 3.5275270230717306`*^9}, 3.527527180117206*^9, {
   3.5318245930792665`*^9, 3.531824597291274*^9}, {3.532893755628397*^9, 
   3.532893755846797*^9}, {3.532899126112618*^9, 3.532899127879719*^9}, 
   3.532899160655594*^9, {3.5329730594265213`*^9, 3.532973067039335*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Gamma]", "=", "19"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CurlyPhi]", "=", 
   RowBox[{"35", "Degree"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "0"}], ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.527307825887992*^9, 3.5273079749195156`*^9}, 
   3.527314372238575*^9, {3.52731829234826*^9, 3.5273183334543324`*^9}, {
   3.5273184068664613`*^9, 3.527318439844919*^9}, 3.527318534084685*^9, 
   3.5273186409448724`*^9, {3.5273187922495384`*^9, 3.52731881045477*^9}, {
   3.5274140800740194`*^9, 3.527414080298032*^9}, {3.527414202244007*^9, 
   3.5274142220381393`*^9}, {3.5274142969254227`*^9, 3.527414297348447*^9}, {
   3.5274152136548567`*^9, 3.5274152237074313`*^9}, {3.527415616774914*^9, 
   3.5274156214941835`*^9}, {3.5274156660167303`*^9, 
   3.5274156661877394`*^9}, {3.5274157813813605`*^9, 3.527415781599761*^9}, 
   3.5274158982099657`*^9, {3.5274187619587984`*^9, 3.527418765063204*^9}, {
   3.5274257457728715`*^9, 3.5274257493296776`*^9}, {3.527426253304163*^9, 
   3.5274262547861657`*^9}, {3.527426361568353*^9, 3.5274263644699583`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["\[Sigma]", "0"], "=", "100"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Tau]", "0"], "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[Sigma]", "v"], "=", 
   RowBox[{
    SubscriptBox["\[Sigma]", "0"], "+", 
    RowBox[{"\[Gamma]", "*", "z"}]}]}], ";"}]}], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5273079786947317`*^9, 3.5273079929655476`*^9}, 
   3.527308026538468*^9, {3.5273142904788313`*^9, 3.527314302631253*^9}, {
   3.527314469489146*^9, 3.5273144698791466`*^9}, 3.5273145113128195`*^9, {
   3.527317198589139*^9, 3.527317255342039*^9}, 3.5273185744263554`*^9, 
   3.527318794854743*^9, {3.5274142706489196`*^9, 3.527414276935279*^9}, 
   3.527415776311352*^9, 3.527415818103825*^9, {3.5274159294440207`*^9, 
   3.5274159470252514`*^9}, 3.5274207793543415`*^9, {3.527420980298294*^9, 
   3.527420980750695*^9}, {3.5274235373657923`*^9, 3.527423537630993*^9}, 
   3.5274237710542026`*^9, {3.5274238202582893`*^9, 3.5274238205702896`*^9}, 
   3.5274242272162037`*^9, {3.52742491380461*^9, 3.52742491397621*^9}, {
   3.52742522711876*^9, 3.527425227477561*^9}, {3.5274256297086678`*^9, 
   3.527425629958268*^9}, {3.527425929868795*^9, 3.5274259768092775`*^9}, 
   3.5275169100739174`*^9, {3.52752001077562*^9, 3.5275200214460387`*^9}, {
   3.527520820869443*^9, 3.5275208213998437`*^9}, 3.52752128631186*^9, {
   3.5275270443657675`*^9, 3.527527044864969*^9}, 3.5328991570673885`*^9, 
   3.5329714237252493`*^9}],

Cell[BoxData[""], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{3.527526274722416*^9}],

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "2"}], ",", 
   RowBox[{"i", "<", "6"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
   "\"\<Clear[\[Sigma]a,\[Sigma]p,\[Sigma]ra,\[Tau]ra,\[Sigma]rp,\[Tau]rp,\
\[Tau]b];\>\"", ";", "\[IndentingNewLine]", 
    RowBox[{"z", "=", 
     RowBox[{"Profondita", "[", 
      RowBox[{"[", 
       RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     SubscriptBox["\[Sigma]", "v"], "=", 
     RowBox[{
      SubscriptBox["\[Sigma]", "0"], "+", 
      RowBox[{"\[Gamma]", "*", "z"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"sa", "=", 
     RowBox[{
      RowBox[{"N", "[", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"]}]], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SqrtBox[
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"], 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 SubscriptBox["\[Tau]", "0"], 
                 SubscriptBox["\[Sigma]", "v"]], ")"}], "2"]}], "+", 
             SuperscriptBox[
              RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"], "-", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                SubscriptBox["\[Tau]", "0"], 
                SubscriptBox["\[Sigma]", "v"]], ")"}], "2"]}]]}], ")"}]}], 
        ")"}], "]"}], 
      SubscriptBox["\[Sigma]", "v"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"ta", "=", 
     RowBox[{"sa", " ", 
      RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"sp", "=", 
     RowBox[{
      RowBox[{"N", "[", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"]}]], 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           SqrtBox[
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"], 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 SubscriptBox["\[Tau]", "0"], 
                 SubscriptBox["\[Sigma]", "v"]], ")"}], "2"]}], "+", 
             SuperscriptBox[
              RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}], "2"], "-", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                SubscriptBox["\[Tau]", "0"], 
                SubscriptBox["\[Sigma]", "v"]], ")"}], "2"]}]]}], ")"}]}], 
        ")"}], "]"}], 
      SubscriptBox["\[Sigma]", "v"]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"tp", "=", 
     RowBox[{"sp", " ", 
      RowBox[{"Sin", "[", "\[CurlyPhi]", "]"}]}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"estremigrafico", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["\[Tau]p1", "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]p1", "-", "sp"}], ")"}], "2"]}], "\[Equal]", 
          SuperscriptBox["tp", "2"]}], ",", 
         RowBox[{"\[Tau]p1", "==", 
          RowBox[{
           RowBox[{"m", " ", "\[Sigma]p1"}], "+", "0"}]}]}], "}"}], ",", 
       RowBox[{"{", "\[Sigma]p1", "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"estrgraf", "=", 
     RowBox[{"Max", "[", 
      RowBox[{"\[Sigma]p1", "/.", "estremigrafico"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"CaCp", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox[
            SubscriptBox["\[Tau]", "0"], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["\[Sigma]", "v"], "-", "sa"}], ")"}], "2"]}], 
          "\[Equal]", 
          SuperscriptBox["ta", "2"]}], ",", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            SubscriptBox["\[Tau]", "0"], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["\[Sigma]", "v"], "-", "sp"}], ")"}], "2"]}], 
          "\[Equal]", 
          SuperscriptBox["tp", "2"]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["\[Sigma]", "v"], ",", 
         RowBox[{"-", "estrgraf"}], ",", "estrgraf"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["\[Tau]", "0"], ",", 
         RowBox[{"-", "estrgraf"}], ",", "estrgraf"}], "}"}], ",", 
       RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", 
       RowBox[{"Frame", "\[Rule]", "False"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"punto", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["\[Sigma]", "v"], ",", 
         SubscriptBox["\[Tau]", "0"]}], "}"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"bilatera", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Tau]b1", "=", 
          RowBox[{"c", "+", 
           RowBox[{"\[Sigma]b1", "*", 
            RowBox[{"Tan", "[", "\[CurlyPhi]", "]"}]}]}]}], ",", 
         RowBox[{"\[Tau]b1", "=", 
          RowBox[{
           RowBox[{"-", "c"}], "-", 
           RowBox[{"\[Sigma]b1", "*", 
            RowBox[{"Tan", "[", "\[CurlyPhi]", "]"}]}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Sigma]b1", ",", 
         RowBox[{
          RowBox[{"-", "c"}], "/", 
          RowBox[{"Tan", "[", "\[CurlyPhi]", "]"}]}], ",", "estrgraf"}], 
        "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"poloa", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["y1", "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x1", "-", "sa"}], ")"}], "2"]}], "\[Equal]", 
          SuperscriptBox["ta", "2"]}], ",", 
         RowBox[{"y1", "==", 
          RowBox[{
           RowBox[{"m", " ", "x1"}], "+", 
           SubscriptBox["\[Tau]", "0"]}]}]}], "}"}], ",", 
       RowBox[{"{", "x1", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"polop", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["y1", "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x1", "-", "sp"}], ")"}], "2"]}], "\[Equal]", 
          SuperscriptBox["tp", "2"]}], ",", 
         RowBox[{"y1", "==", 
          RowBox[{
           RowBox[{"m", " ", "x1"}], "+", 
           SubscriptBox["\[Tau]", "0"]}]}]}], "}"}], ",", 
       RowBox[{"{", "x1", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Poloa", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x1", "/.", 
        RowBox[{"poloa", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
       SubscriptBox["\[Tau]", "0"]}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Polop", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x1", "/.", 
        RowBox[{"polop", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", 
       SubscriptBox["\[Tau]", "0"]}], "}"}]}], ";", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"poli", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Point", "[", "Poloa", "]"}], ",", 
        RowBox[{"Point", "[", "Polop", "]"}]}], "}"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"linea2", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"y", "=", 
        RowBox[{
         RowBox[{"m", 
          RowBox[{"(", 
           RowBox[{"x", "-", 
            SubscriptBox["\[Sigma]", "v"]}], ")"}]}], "+", 
         SubscriptBox["\[Tau]", "0"]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "estrgraf"}], ",", "estrgraf"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"spintea", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["\[Tau]a1", "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]pa1", "-", "sa"}], ")"}], "2"]}], "\[Equal]", 
          SuperscriptBox["ta", "2"]}], ",", 
         RowBox[{"\[Tau]a1", "==", 
          RowBox[{
           RowBox[{"m", " ", "\[Sigma]a1"}], "+", "0"}]}]}], "}"}], ",", 
       RowBox[{"{", "\[Sigma]pa1", "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"spintep", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["\[Tau]p1", "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]pp1", "-", "sp"}], ")"}], "2"]}], "\[Equal]", 
          SuperscriptBox["tp", "2"]}], ",", 
         RowBox[{"\[Tau]p1", "==", 
          RowBox[{
           RowBox[{"m", " ", "\[Sigma]p1"}], "+", "0"}]}]}], "}"}], ",", 
       RowBox[{"{", "\[Sigma]pp1", "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]1a", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Sigma]pa1", "/.", 
       RowBox[{"spintea", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]3a", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Sigma]pa1", "/.", 
       RowBox[{"spintea", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]1p", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Sigma]pp1", "/.", 
       RowBox[{"spintep", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]3p", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Sigma]pp1", "/.", 
       RowBox[{"spintep", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"spintea", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["\[Tau]a1", "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]a1", "-", "sa"}], ")"}], "2"]}], "\[Equal]", 
          SuperscriptBox["ta", "2"]}], ",", 
         RowBox[{"\[Tau]a1", "==", 
          RowBox[{
           RowBox[{"m", " ", "\[Sigma]a1"}], "+", 
           SubscriptBox["\[Tau]", "0"]}]}]}], "}"}], ",", 
       RowBox[{"{", "\[Sigma]a1", "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"spintep", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["\[Tau]p1", "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]p1", "-", "sp"}], ")"}], "2"]}], "\[Equal]", 
          SuperscriptBox["tp", "2"]}], ",", 
         RowBox[{"\[Tau]p1", "==", 
          RowBox[{
           RowBox[{"m", " ", "\[Sigma]p1"}], "+", 
           SubscriptBox["\[Tau]", "0"]}]}]}], "}"}], ",", 
       RowBox[{"{", "\[Sigma]p1", "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]va", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Sigma]a1", "/.", 
       RowBox[{"spintea", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]a", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Sigma]a1", "/.", 
       RowBox[{"spintea", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]vp", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Sigma]p1", "/.", 
       RowBox[{"spintep", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]p", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Sigma]p1", "/.", 
       RowBox[{"spintep", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"tensioni", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"\[Sigma]3a", ",", "0"}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"\[Sigma]1a", ",", "0"}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"\[Sigma]3p", ",", "0"}], "}"}], "]"}], ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"\[Sigma]1p", ",", "0"}], "}"}], "]"}]}], "}"}], "]"}]}], 
    ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"puntiditangenzaa", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["\[Tau]ra1", "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]ra1", "-", "sa"}], ")"}], "2"]}], "\[Equal]", 
          SuperscriptBox["ta", "2"]}], ",", 
         RowBox[{"\[Tau]ra1", "\[Equal]", 
          RowBox[{"c", "+", " ", 
           RowBox[{"\[Sigma]ra1", " ", 
            RowBox[{"Tan", "[", "\[CurlyPhi]", "]"}]}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Sigma]ra1", ",", "\[Tau]ra1"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"puntiditangenzap", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["\[Tau]rp1", "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]rp1", "-", "sp"}], ")"}], "2"]}], "\[Equal]", 
          SuperscriptBox["tp", "2"]}], ",", 
         RowBox[{"\[Tau]rp1", "\[Equal]", 
          RowBox[{"c", "+", " ", 
           RowBox[{"\[Sigma]rp1", " ", 
            RowBox[{"Tan", "[", "\[CurlyPhi]", "]"}]}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Sigma]rp1", ",", "\[Tau]rp1"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Tau]ra", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Tau]ra1", "/.", 
       RowBox[{"puntiditangenzaa", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]ra", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Sigma]ra1", "/.", 
       RowBox[{"puntiditangenzaa", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Tau]rp", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Tau]rp1", "/.", 
       RowBox[{"puntiditangenzap", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]rp", "=", 
     RowBox[{"N", "[", 
      RowBox[{"\[Sigma]rp1", "/.", 
       RowBox[{"puntiditangenzap", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"pra1", "=", 
     RowBox[{"{", 
      RowBox[{"\[Sigma]ra", ",", "\[Tau]ra"}], "}"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"pra2", "=", 
     RowBox[{"{", 
      RowBox[{"\[Sigma]ra", ",", 
       RowBox[{"-", "\[Tau]ra"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"prp1", "=", 
     RowBox[{"{", 
      RowBox[{"\[Sigma]rp", ",", "\[Tau]rp"}], "}"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"prp2", "=", 
     RowBox[{"{", 
      RowBox[{"\[Sigma]rp", ",", 
       RowBox[{"-", "\[Tau]rp"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"puntangenza", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Point", "[", "pra1", "]"}], ",", 
        RowBox[{"Point", "[", "pra2", "]"}], ",", 
        RowBox[{"Point", "[", "prp1", "]"}], ",", 
        RowBox[{"Point", "[", "prp2", "]"}]}], "}"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"giaciturera", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"y", "=", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{
              RowBox[{"pra1", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "-", 
              RowBox[{"Poloa", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], 
             RowBox[{
              RowBox[{"pra1", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "-", 
              RowBox[{"Poloa", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]], 
            RowBox[{"(", 
             RowBox[{"x", "-", 
              RowBox[{"Poloa", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", 
           RowBox[{"Poloa", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
         RowBox[{"y", "=", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{
              RowBox[{"pra2", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "-", 
              RowBox[{"Poloa", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], 
             RowBox[{
              RowBox[{"pra2", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "-", 
              RowBox[{"Poloa", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]], 
            RowBox[{"(", 
             RowBox[{"x", "-", 
              RowBox[{"Poloa", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", 
           RowBox[{"Poloa", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"Poloa", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "estrgraf"}], "}"}]}], "]"}]}],
     ";", "\[IndentingNewLine]", 
    RowBox[{"giaciturerp", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"y", "=", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{
              RowBox[{"prp1", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "-", 
              RowBox[{"Polop", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], 
             RowBox[{
              RowBox[{"prp1", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "-", 
              RowBox[{"Polop", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]], 
            RowBox[{"(", 
             RowBox[{"x", "-", 
              RowBox[{"Polop", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", 
           RowBox[{"Polop", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
         RowBox[{"y", "=", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{
              RowBox[{"prp2", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "-", 
              RowBox[{"Polop", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], 
             RowBox[{
              RowBox[{"prp2", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "-", 
              RowBox[{"Polop", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]], 
            RowBox[{"(", 
             RowBox[{"x", "-", 
              RowBox[{"Polop", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", 
           RowBox[{"Polop", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "estrgraf"}], ",", 
         RowBox[{"Polop", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"grafico", "=", 
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "CaCp", ",", "punto", ",", "linea2", ",", "bilatera", ",", "poli", 
         ",", "tensioni", ",", "puntangenza", ",", "giaciturera", ",", 
         "giaciturerp"}], "}"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "180"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"angolospa", "=", 
     RowBox[{"ArcTan", "[", 
      FractionBox[
       RowBox[{
        RowBox[{"Poloa", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", "\[Sigma]3a"}], 
       RowBox[{"Poloa", "[", 
        RowBox[{"[", "2", "]"}], "]"}]], "]"}]}], ";", "\[IndentingNewLine]", 
    
    RowBox[{"\[Beta]a", "=", 
     RowBox[{"N", "[", 
      RowBox[{
       FractionBox["\[Pi]", "4"], "-", 
       FractionBox["\[CurlyPhi]", "2"]}], "]"}]}], ";", "\[IndentingNewLine]",
     
    RowBox[{"angolorotturaattiva", "=", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"angolospa", "+", "\[Beta]a"}], ")"}], "/", "Degree"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"angolospp", "=", 
     RowBox[{"ArcTan", "[", 
      FractionBox[
       RowBox[{"\[Sigma]3p", "-", 
        RowBox[{"Polop", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], 
       RowBox[{"Polop", "[", 
        RowBox[{"[", "2", "]"}], "]"}]], "]"}]}], ";", "\[IndentingNewLine]", 
    
    RowBox[{"\[Beta]p", "=", 
     RowBox[{"N", "[", 
      RowBox[{
       FractionBox["\[Pi]", "4"], "-", 
       FractionBox["\[CurlyPhi]", "2"]}], "]"}]}], ";", "\[IndentingNewLine]",
     
    RowBox[{"angolorotturapassiva", "=", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["\[Pi]", "2"], "-", "\[Beta]p", "+", "angolospp"}], 
        ")"}], "/", "Degree"}], "]"}]}], ";", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"riepilogo", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "grafico"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"riepilogo", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", "\[Sigma]a"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"riepilogo", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", "\[Sigma]3a"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"riepilogo", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "4"}], "]"}], "]"}], "=", "angolorotturaattiva"}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"riepilogo", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "5"}], "]"}], "]"}], "=", "\[Sigma]p"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"riepilogo", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", "\[Sigma]3p"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"riepilogo", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", "angolorotturapassiva"}], 
    ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"Tabella", " ", "=", 
     RowBox[{"Grid", "[", 
      RowBox[{"riepilogo", ",", 
       RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]], "Input",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5275201186342096`*^9, 3.5275201900043344`*^9}, {
   3.527520260079658*^9, 3.527520398264701*^9}, {3.527520438185171*^9, 
   3.5275206612811623`*^9}, {3.5275207078472443`*^9, 3.5275207507317195`*^9}, 
   3.527520795238598*^9, {3.5275213713164096`*^9, 3.527521372658012*^9}, 
   3.527521601513418*^9, {3.5275220023093224`*^9, 3.5275220579858203`*^9}, {
   3.5275257690737276`*^9, 3.527525772100133*^9}, {3.527525835217844*^9, 
   3.5275258511454716`*^9}, {3.527526119358943*^9, 3.527526144521787*^9}, 
   3.5275262636903963`*^9, {3.5275263657173758`*^9, 3.5275263661229763`*^9}, {
   3.5275264492555227`*^9, 3.5275264498639235`*^9}, 3.527526620450223*^9, 
   3.527526653647482*^9, {3.527526705486373*^9, 3.5275267428640385`*^9}, {
   3.527526821753377*^9, 3.527526832002595*^9}, {3.52752754094584*^9, 
   3.5275275639246807`*^9}, {3.5275277717638454`*^9, 3.527527773776249*^9}, {
   3.5275914019496*^9, 3.527591468296517*^9}, {3.5275915073277855`*^9, 
   3.5275916286647987`*^9}, {3.5328946437369576`*^9, 
   3.5328946796950207`*^9}, {3.532894731658712*^9, 3.532894762312766*^9}, {
   3.53289479891043*^9, 3.532894800376833*^9}, {3.5328948407653036`*^9, 
   3.5328948456481123`*^9}, {3.5328948889537888`*^9, 
   3.5328948969254026`*^9}, {3.5328949425242825`*^9, 
   3.5328949855647583`*^9}, {3.53289539609548*^9, 3.532895446296368*^9}, {
   3.532895518664895*^9, 3.5328955246865063`*^9}, {3.532896314727816*^9, 
   3.53289632546743*^9}, {3.5328963945893836`*^9, 3.5328963951954184`*^9}, {
   3.532896631370927*^9, 3.5328966798296986`*^9}, {3.532896778416337*^9, 
   3.5328967943252473`*^9}, {3.532896876752962*^9, 3.5328968871455564`*^9}, 
   3.532897456912145*^9, {3.5328974950003233`*^9, 3.53289752571208*^9}, {
   3.5328976697633195`*^9, 3.532897712890786*^9}, {3.532898499000749*^9, 
   3.532898531504608*^9}, {3.5328988437724686`*^9, 3.532898876923365*^9}, 
   3.5328989416740685`*^9, 3.532899286231776*^9, {3.5329726969458857`*^9, 
   3.5329726993482895`*^9}, {3.5329730161520452`*^9, 3.532973016557646*^9}, 
   3.532973708630461*^9, {3.5329738128854446`*^9, 3.532973837065487*^9}, {
   3.532974186818101*^9, 3.532974240076595*^9}, 3.5329755564347095`*^9, {
   3.532976262746351*^9, 3.532976277223176*^9}, {3.53297755481862*^9, 
   3.5329775585002265`*^9}, 3.5329776655052147`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Risultati Grafici", "Subsection",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{{3.5274249452262654`*^9, 3.5274249462090673`*^9}, {
  3.532893893610639*^9, 3.532893895217442*^9}, {3.53297271639912*^9, 
  3.532972720002726*^9}}],

Cell[CellGroupData[{

Cell[BoxData["Tabella"], "Input",
 CellMargins->{{31, 0}, {10, 30}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"grafico\"\>", "\<\"\[Sigma]a\"\>", "\<\"\[Sigma]3\"\>", "\<\"\
\[Alpha]a\"\>", "\<\"\[Sigma]p\"\>", "\<\"\[Sigma]1\"\>", \
"\<\"\[Alpha]p\"\>"},
    {
     GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxdWHlYzOv7LiFLskdIlH3JlhaV7mlqSou0KjU1S0mLoknLjFISWVos8T3H
OdYQ2Q5RJ+FFEh1bJIUshRZZIiXUz2/ez2euy/RP1+d6e5fnee77fu6nsaII
18BuKioqtqoqKv//W/3qm9216RzcOl1xevqpiYhatOSUWjIHnWFjyRmNieDP
OpsSMJ2DwHkGa9BLFwcNww5bNQPuCSl20y8PhuvWkZ+NK4BIrq2JbGAPDCkc
t6u2BFCR/0yycGHWD1vJ18kBZn9nvHw/8WHO70HPJ5HM/dX0fqLKvG89fR+J
HSi1aJxrBR35388gd69u7xSnWMFSEPwyhzuLBNWtdp4UyMWZgLtes6oNyZfy
hiH5t7hIupP6cJDMiFh8Gn7jvZo1/soV+c/kGZMHOXmpjrCBxLD8fuyPeUSU
86f9ARcbzDnTkuo4w4z0KY1YfNzDBp+7NoTeMzUj06w2Hzr3lYfJ8vstie2T
2sTHOrZor55q/tHLkpyUn2sLszhef53jluTrlmMnDTQWoEBlk212FIekGn6N
z9JfgCSfhpnXNnDIZoPzfbinFqBlb2Pj7GYO+RJpF2Ey0QHne0i0b7VYkco5
7/88GuKAWP1K/fyxXLLT/MhfDxod4EPjJGbydzgjrkajfd8ra/J+/T79tohF
UH3svGttuA25Ir/XBR1mj8N0e/OIb4NmRniLK7aeW19TJOCRAPk5bvAsj7sx
QMYjAwwfSnqUu8FeI08rOoxHesnj90D6/k/qq0x4pK5WWG4Z44nBo4Q2zjk2
JFce72IcOGpp4MixIU4qp8OnanjDt1sp5hVyycIMj6A8I29sbRTP25nFJY82
Zx0qsPFG2LMfZTOTuST91D+Hzf28FfFUWD6rsYpYAr2EwwYWrRyid82088i1
JYr8tcjz44ME7/9ah5SBjLJM51tIfRB8Tm/UlCkgNX9fOvrmro+iPsV1HIlU
1xczDlrc33fMgtzePvVOWpDvL+h8qE6xNSdjmroGDDrgi1fyc81IlqdZTNEw
Pp5KN/903mRC6i3OzTQ05uOtnb1N/2JjktK/KPGmHV+Bn4Nr3pG36/kIUN9j
krxxLpm0yDD8XS0ffDXZyBd5s8kHX07ijxl+CrxWDZz89GSIH8a3dQ86O3IK
ia8a8vBLjh8e64n+F5+gR9xnq7dOvOSn4MPOW1EnX5b44YXlLolbywgy4E6s
dku9HyaNDzsXuPD5Zfab5Rv7bTJVvm6ZxeyfDfl+3Pg05WxeoZ+CzzLmfi19
+f2oZN63gL4Pzcz7nej7MYGJbzmND38x8e+i8WMtk588mh+8YfLXRvMHNr+l
VSMmT5aYoIyphxatB1x1XudalviAQ+sHbaa+EbS+YOu/o+V4U2MBUM7gZSLF
C9YxeGJ14AGDt5UUb2DxuI3iEV4MXt0pXsHieT/FM2QF90PsUzzhdB3RAcU2
uKTOaats9QB3GtGt6sEDy49DVYHcGdY8BLs87j33pTsiLs0p5vB5+B6s/XxJ
qRvW7JuMsjU8sHyLGJyx/3UyDz5qS//V+emK3Q2Gc0ZG8+Dt5zZOr90F8R/v
HjK05IHl79m5KWvrtXh40ZFxdcCJRWjaG+7RO98GkRVTFyQLFkHNzNQxJM0G
SnqAE4xesPl4zuhJPNUTsHqT+uS+5t12KwgYPXpA9QgZjF6tp3qF7mlUz4op
H/Fq2PfZYcPtkLnjk2TZAUBJ/zAs8Ep49ihbhN9YIfDysYQxo59sfVl9baX6
Ch0Dr8jkX/r78HCM6aYZZhjTt+/TDQtt0EH5iZl/FPQJN7cBb2h1xYUv85Aj
fDJszTprxMZurtlUbwJrRt9Z/H1j9D+T6r8iD6dpf8Bqpp+w+Fbuh2dahccw
ToaEpnQbZ/vReC9/h0zBt415CWtH/Fpn+Tr61EGXj/oyaBv419tW65Ic0q9f
3UgZFn6qNM77ezq5ls93rh8hU+jBs7OBfF9tGfQ0r/FfCmeS0pGaAZWaMsw1
vZirS+aS206xE9f1lSn0Zs7KjfNn9ZTB9YZr6EFPU/LWr8Din59S5H+btvR2
hDnZv+X4Ae9WqUL/6tw/ZjfXS9Hzy4Uf9yM55P2R6Jhbv76HrhrfmRHDIVpP
djg7VkkV+tsjq890x7tSeBdJnO6styaZhRpc3TwpDtC6kqGqW3JP7pBCkGsv
bJHYk6bTk0fNipPi2gWv9pDzjiS2p5BzxUeKGRSH5PmlxXueOUlhNSlqmLTL
meioOod+NZBir6nR6+uDXMjyL+90l+hLcYHinCyR/czw+REHl9tGr4r+dCXj
LugmODyPgx/lDRHfuVmxzzMOtqe2Hkoo8STuQ3O6VlnF4RDlLamqaBtxzCIO
VdebpquLFhNHOd/j0Pd06eFpKYtJ4+ykW1mRsXhHdYQMlN3cWOwdC7uGn72S
dvgQqY6vOHJ+LB5Oq41N+ulD+mo8O30+IAaz5fH4k2KTIyUj3WPwVzhGvbf0
J0fl98bgXlOmJDHUn8RN6K71+V00Yia6l/9pJCCOsmFpJsXRUNv3+UDeCgHx
D3ZcGHAhGo3pmVzRagF5bBrs894pGvemJjfXdReSYS5Xa62mRMNshrmX03Qh
qT3Bb+j7ZhWK5PkRkp5yvqzCfpdB206qiches/GvUh9FYVvZ24CXS0XE0DPa
LYQfhdLhmi3C6yKye/bV/I6VEjTbtiQkO4iJSJ5HCdYUDt9w31VMnq36sTCf
L8Fi9dULeZ5iYpt2pkh7tgQC+d+JSUn5N93sjZEoyw5uP7hHTDIjkx3ehEUi
0c2UP/+QmFy+9e2fM3aR6GaYuTbjhJj8NzBk8srslYjvaTH4arGYXJK/eyW2
wDTtQImY5KqtdWy2WomUmi02O0vF5Ed2UtGuoyuQOMCfs/2ymLyT52UFUrv8
jC4WiMnPatfyDR4rAMf2Wc/OiInLWI6qtX4EZGUZ96cmiomRvC4RmG+xfM6I
1WKiV/XfON3WcETZ1BxdECsmdXu3PjDIClfEE1BqKOvsH463Rzpvmy8Qk3vu
qicshcuh9+a89qGRYrJd3p+WY+m/11VieonJZNNNe9szw9BaUhYTUCMiZlPb
Wk3fhGLotDulEw6LyOXlKvHn7UKRLs+LiHyU4yoUHk1jgwYKRERnzusdy5JD
kIHmsVHDReRkZ+HeUARj9IoPa3wShAw+g+GgqbYsKk5IVhnvTkqaE4ztXtbT
K2OEpOyaW8HB6cGK+lN8LkOL+ZWnVxsFJOrE86EvO4LwsVNj6+fLAgaPQeDe
i9p201pAutWpNex5sBSJN5tCxc3+xC3k4f1OzlIFnkc/Uf9eeDEQ3YZ0Guub
+DH4CoTO5fbhe2R8UrqtyWHuvwEIerZo/QSBL3n5ybKHhn6Agj8UT2IEP2h/
qRnvTUq4rses60R4+i7/aJutF0nyEBX13CBS8PMyjQNpZP7JnD7upOurcffb
7kI8bxvz6FG2G7HqqCnI5QoVfO9j+GD1oT5CfLbvXzhlqyuJvFmzzuOYAGc3
NxdfHO5C3lMeoX/t4jEGHosIx+vFtEdOAoX+qPOKXn0YIsC6nX+0qF53JHX9
XA4Wc/3R4ZpzxOSiLemZei8pfaa/Qt9MaF7QdY3XL2UEj2SP6RG2WuyH+Ysa
AnNug/A+DYiINfNT6Kuv4dIbWn38UKCnue+P/mbkfOy4kPM3+dDWv7TdLsGQ
bPn29X/Fx/gKvS+9X9V7Ssov//h108MtH/RItsv7w6lSPoZv7EyOfzKcHGS+
2f7CrsfSdbD779D9SGPOZ/sXe78BvR985n0P6ftgy7yf7b9sfHY0PijFj15M
fti+/pbJX183ef7Qi8nvFppfcJn8sz5EqT6QMPXLp/VDP6a+XbS+4DL1Z32S
ShvFRy3FB1j8tFhXm2wa5A570encpkqhwodxvYX13EEiZHec1fnUxxNUr0TY
2E1cHTRgMdrylwh0E0UKn1fK4PU5xSv+mWht3J0jVvhEFt9GgwJSK7d4Q7Xv
qSf9SsQ4O77Oc3ngEtQxfGB96S2GLyGUL1DiExYz/GPz3J3hZzLlJ5T4i2iG
3y2U3+i8PW3RQINgRR5iGL3YQfUCSnqCHEZvRlK9wWhGjzKpHkFJr3Cd0TM2
b+aM3mlRvcMERg+/UD2Ekl6inNFTfaqnUNJbNDN6zOZ13O96DVbPozOPeaXL
xHD+Xe+h1A/A9osv3zZq3SgU4/vv/QTHf+83UOpHUOpXIL/3M7D9TqewR/Kd
w2JcZ/rhf7QfIm5qopN6QyRM79x4sTFZjFUOtrP2mUgU8Sn1V7D9N+Dp2PoF
bmKs+bskT/tXf54U2bDOxkmM0oCbO0+NjcImVf1HZ5pFYPt5R57/v9Kbv3Bb
oZLQVREFyeugjp8SEaa8+WY07UkUjo3ZqjlphQhK/gAvGP/A4kWL8Rfm1F+A
9R+PV3xP3a0qhAPjV7pTv4Ikxs+EUj8D1u8UD/57UtYyf1xj/NBe6ofQm/FL
LL5ZP1VB/RRm3FiVUeMVixLtU7oNmT5oYPwYyx/Wr2lQv4bHjJ97Rv0c3Bi/
x/K30nP/vfW+cUhMm1P45qQnOqu5mmX742Aw2Khp7UAP6DP+kdUTb8ZfelJ/
iTDGf7JzlpI/Betf7al/BetvWX1rYPzvY+p/MYTxx8uoP0bPQoflw3KlMMzY
8NojxA5XjjfoqeVLFXrK+m0R9dtg/Tg7p7B+fTz166hl/Hx/6ufB+n1Wz9l5
4DadB8DOC+F0XgA7T7DzETtv2NN5A+w8YkHnEbDzCttfjjDzTCydZ8DOO1I6
70C/2Clo3K95iP3/gvL89H8oshcC
        "], {{}, {}, 
         {Hue[0.67, 0.6, 0.6], 
          TagBox[
           
           TooltipBox[
            LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
             17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 
             33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 
             49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 
             65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 
             81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 
             97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 
             110, 111, 112, 113, 114}],
            "True"],
           Annotation[#, True, "Tooltip"]& ]}, 
         {Hue[0.9060679774997897, 0.6, 0.6], 
          TagBox[
           
           TooltipBox[
            LineBox[{115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 
             126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 
             139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 
             152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 
             165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 
             178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 
             191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 
             204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 
             217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 
             230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 
             243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 
             256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 
             269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 
             282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, 
             295, 296, 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, 307, 
             308, 309, 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 
             321, 322, 323, 324, 325, 326, 327}],
            "True"],
           Annotation[#, True, "Tooltip"]& ]}}], 
       PointBox[{119, 20}], {{}, {}, 
        {Hue[0.67, 0.6, 0.6], 
         LineBox[{{-434.45126027003727`, 20.}, {-425.92357219190217`, 
          20.}, {-417.39588411376707`, 20.}, {-398.90590196920243`, 
          20.}, {-381.6412196200336, 20.}, {-364.7152018050306, 
          20.}, {-346.3545780017331, 20.}, {-329.21925399383144`, 
          20.}, {-310.6493239976354, 20.}, {-292.4180585356051, 
          20.}, {-275.41209286897066`, 20.}, {-256.9715212140418, 
          20.}, {-239.7562493545087, 20.}, {-222.87964202914137`, 
          20.}, {-204.56842871547963`, 20.}, {-187.48251519721373`, 
          20.}, {-168.9619956906534, 20.}, {-150.78014071825882`, 
          20.}, {-133.8235855412601, 20.}, {-115.43242437596693`, 
          20.}, {-98.26656300606962, 20.}, {-79.66609564787788, 
          20.}, {-61.4042928238519, 20.}, {-44.36778979522174, 
          20.}, {-25.896680778297167`, 20.}, {-8.650871556768433, 20.}, {
          8.25627313059455, 20.}, {26.598023806251955`, 20.}, {
          43.714474686513526`, 20.}, {62.265531555069515`, 20.}, {
          80.47792388945975, 20.}, {97.46501642845415, 20.}, {
          115.88671495574297`, 20.}, {133.08311368763597`, 20.}, {
          149.9408478853632, 20.}, {168.2331880713849, 20.}, {
          185.30022846201072`, 20.}, {203.80187484093096`, 20.}, {
          221.07822142445536`, 20.}, {238.01590347381403`, 20.}, {
          256.38819151146714`, 20.}, {273.5351797537244, 20.}, {
          292.116773984276, 20.}, {310.3597036806619, 20.}, {
          327.37733358165195`, 20.}, {345.8295694709364, 20.}, {
          363.05650556482504`, 20.}, {379.94477712454795`, 20.}, {
          398.26765467256524`, 20.}, {415.3652324251867, 20.}, {
          433.89741616610263`, 20.}, {434.1743382180699, 20.}, {
          434.45126027003727`, 20.}}]}}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVznk41HkAx3GDjagpIm1aVzWVIySWifl94pmppAMZZ5hxG8zlmNCzS9fs
OipdPDm2VtfqeaKDrMmmp1bGsWkxq0KmxFMUK0en/e4fn+f9vP77WPKFfjGa
GhoaO8n+75EWntvSYjXLNozxZpneE5YD3Tg3g95EvZq6Ud2nrqOSzo74+tE7
qRLz3NIr6mZKj/+4nqIPUpKNCUVH1SoqmN2c7EKfoAYawwpy1cMUra6p2ZFO
w9KDPXrZ6hmq+11jqj3dADWxJ1pkah1Q+R7b19MtMaeaWJuhNsGT+fcGOx44
Ysz5U035i7WYUDK/Xotjwmz6oZX9/g2IsAocMBVuxhaGtWxjoitm050CHOZx
YJTg+rFdxQL1MzOrd6c3dMWXnyoFnnBzfuniP7kT/7jkPZqtYmNLOdtqcZMv
rIdd8z4824ptOetpmwf9cfK6IMpAtR2rqkesQ+y52KUz5Ss12IVA1u2rHtwg
FDXQ7NP1fFGXeVjlLQnBnfi3JqUH/TCuydgBRRiOhcxbMGy2Bz++frJcYyAc
73qfF94pC8D7wupvu85EYrrs1Yp690D8MSf5qPidB5aqc6FZVxBcLKCjr+Rj
SfkPBfTdISh5lea2YzwKx64ELVs1GorLYbVn3mvGoMTzveODpL2olEWYHrON
hY9FAzdvYQRq3xyR3t0dh4p6J+Fe/0ik0htmAnjx6F8n+Mg05MFcxT03IE+A
1N1V32aQh7RdX9I7ShPRdir2ReR5PtRmKy39qgRovqKT3BoRBfeTNeMtj5Kw
NJKVvdUuGpvrvUcvqpNhvbfHT38sGk4HfRbK9IU48Vnr2nNFDMz+jqUJTUQo
41YqXstj8aHBtmhPhQgpMxeOM7fEQTlz0fnmBjGKmB6jpcbxEOcxhByFGPvv
O9PZPfH4VTlkuNJLAt355wYtTySgNSy4ZV+3BMPvzjENIhPRwnlsrBUuRf53
2qEccwEaD8ylzvtXiiNjnzQK3wogX7Yh0T07FRztgBTT6iT0B1W2KLTScKnb
oqAvmfweVW6qO52G0G25jtc3pcBHNe310jwdPVrssrZPKYg2VoXn3UzHhciy
wg+tQujOTb/I5mRAz/1msZ2PCDlYMfdLRwZWC5Q7cqpEmOiasqX4MiQKqtj9
hmK4NHWNLxqVwXCRh2W4VAyd4EkzG+k+6C2WB8x2itHh9WfE3W8yYasuazvr
KoHgcLmLvDAT1wOj1/CLJfhqamOhtMoCr3zqvqOGFHY8z96nxG1hfXYs4rCL
wUVjxN+bPjjtTdzgINc2WJkFevHJ+ChiGXtoJJBYcdxpwSniyZSKmiFik0Ni
/1nikaYlXrTVWWgXjA020qQw0bH5bEjsZt3t3UrM8fG8tYq4ckRxQ0V8oUe0
ZitxVkz+oXFi/pt2/aPEayNs1llpSvHMSN61gpGFA34JokPE+iEVBeuJ3y72
7T1OzKyo5YA4+C9Xz3LiknVDt6OIHXx0jeqIuSzPst+I+9mX6kaIDx8I5iqI
vbWPWkwR33ooWtRBfOte+k80LSmM/CtyJojzKU7ocmKv4lqm1poszHyxu88g
lvS1TxoR8xXGdk7E562GrjKIOzK/nKKIO+M+x7gSu7kNfd1O/B89cB7x
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx3k4FHgYwHGDjagpIm1aVzWVIyR2TMy88cxU0oGMa8KM22Aux2Tss0uX
XUeliyfH1upaPU90kDXx6qmVcWxazKqQKfEUxcrRaX/7x/f5Ph9rgcg/RltL
S2s36f8fbeW7Ly/WMO15tDcrDJ40OlFNczKozaxX0zer+zV1TUnnRv38qV2s
Esuc0qualiYDweN6FnWIJd2cUHRMo24KYbcku1EnWYONvIIczUgTpa65xZlK
geWHeg2yNLNNPe8aUx2pRlATe7JVrtFDVr7nzo1Ua5hXT67P0Jjhk4X3hjof
OMO466ea8hfrcVLF+Ho9jgEWMw9tHH/YhBE2QYPmoq2wjWYr35xIx7l0l0Cn
BRwwSaB/7FAzkfULQ9G32wf0JVeeqoRe6O760i1gajf845b3aK6KjdvK2TZL
m/3AdoSe9+HZdtyRvZGydSgATt0QRhmpd+Ka6lHbUEcu7NGb9pMZ7cEg5p1r
ntxgKGqgOKYb+GFd5hG1jzQU7sa/NSs95I8T2rRdoOTB8dAFi0Ys9uFPr5+s
1BoMh3d9zwvvlgXi+8Lqb7vPRsJM2atV9R5B2DQv/aj8gw9Mdddii+5gdLMC
PUOVAJaV/1hA3RuKJa/S3HdNRMHxq8Er1oyF4RVe7dn32jFQ4vXe+UHSfqyU
R5gft48FX6sGbt7iCKx9c1SGe+Ogot5FtD8gElOpDbOB/HgY2CD8yDDmo6Wa
e34wNwFkHnRDuyE+pu35kt5Zmgjtp2NfRF4QoMZitbV/lRBaruolt0VEocep
monWR0mwPJKZtd0hGrfW+4xd0iSD7f5ef8PxaHQ55LtYbiiCk591rj9XxqDF
37EUkZkYyriVyte5sfihwb5oX4UYUmYvnmBsi0PV7CXXW5skUMTwHCs1jUdJ
Hk3EUUrgh/uuVHZvPP6mGjZe7S0F/YXnh6xPJmAbL6T1QI8URt6dZxhFJmIr
57GpTrgM8r/TDeNYCrHx4Hzqgn9lcHT8k1bhWyHmrtiU6JGVChzdwBTz6iQc
CK5sVeqkweUeq4L+5GS0HVNtqTuTBmE7cpxvbElBX/WM90vLdOjVYZe1f0rB
aFN1eN6tdLgYWVb4oU2E+vMzL7I4GWDgcavYwVeM2bBq/tfODFgrVO3KrhLj
ZPe0PUsgh0RhFXvAWIJuzd0TS8bkYLzE0zpcJkG9kCkLO9kBMFiaGzjXJcFO
7z8j8JtMsNeUtZ+jS1F4pNwttzATbgRFrxMUS/GruZ2VykYB/PLp+85aMnTg
e/U9JW7n9TswiXmXQorGib83f3DGh7jBKVfXaLUCqMWn4qOI5ezh0SBi5QmX
RaeJp1IqaoaJzQ5LAuaIR5uXeVPWKqBDOD7USJGhmZ7dZ2Nid9senzZijq/X
7TXElaPKm2rii73idduJFTH5hyeIBW86DI8Rr4+w22CjLcNnJrndq2gKOOif
ID5MbBhaUbCR+O1Sv74TxIyKWg4Qh/xF9yonLtkwfCeK2MlX36SOmMv0Kvud
eIB9uW6U+MjBEK6S2Ef3mNU08e2H4iWdxLfvpf9M0ZGhSUBF9iRxPosTtpLY
u7iWobNOAbNfHO7TiKX9HVMmxAKlqYML8QWb4Ws04s7ML6dZxF1xn2PoxO7u
w193Ev8HQfJF8Q==
          "]]}}, 
       {RGBColor[1, 0, 0], PointBox[{38.195070624002724`, 20}], 
        PointBox[{433.18325334127155`, 20}]}, {
        PointBox[{33.51584110176813, 0}], PointBox[{123.67922952223458`, 0}], 
        PointBox[{434.45127800274247`, 0}], 
        PointBox[{117.73197533852907`, 0}]}, {
        PointBox[{52.739737802228035`, 36.928761972323656`}], 
        PointBox[{52.739737802228035`, -36.928761972323656`}], 
        PointBox[{185.26026219777177`, 129.7206321215871}], 
        PointBox[{185.26026219777177`, -129.7206321215871}]}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVyHk4FHgAxnFHx5oiR5ihezSR8Tz1DPOQ6+0ZU0YSYmgojCPHIMOMmUZT
o7JJPQ1qsSU9tVmqx6J7E7YptSX2qSxGh1gdcm2pUY72t3+8z/f5vMuF6cHx
Bnp6egFk/zfo1w7+BJWDf+YNluvpOeNw7qzqPHsO7hr7/8m2c8bd7azJha4c
VC6oGRf5OoO9sLBibRgHCRbiTd1qZ9io/N8ln+BgwObbRN1yF/QJNPIXZj7o
d6CExHLYEJvUnbpD4aJ342pKS54riiRH+o5MbYB2f7K0wNgTjNmLSl+xNqFH
3RZpmM7BqzDD4Yv0LSgNkHL0Z/nCPSamvntvEHIjuU1TKn+syXba31CyFbWN
bNcbtYG4kXae/rwgFIfmBLOefAnG+xajbm11GDo7abyq1FAYOWqX6m5vg1eQ
xGG6KwwNu/jswJoIGBuEM+ttBKBaN8UcerAdoR5vefSjkZhb8TRyujEKs2um
88c7dkBMuzB+vyMab/q3+p3Nj8a14uh7eq9jkOfyPbKqOQaamaHpMK0Q2hUj
+172CWH382jz6XexGAxh1YsXx2GPe5X/+L9xmBNxx3dDcDwqHrOR+D4eHVPH
x3jiBFip3RsffU5AbP/t8xcv7ASfY/XL5rGdOBe/WuTZlogPjJ0Lm74n4jRz
2NuJkgyZadpmb9Lq+19lkUhB26DfyAuDFMTP8DS3YkSQfS6niUxFeCEfs5Gf
TMXQWMsl6vxUUAq1+xOa0xD28fwPzwzSsD7HJLj4VTqs7SZHlCbpsOW3Wh0r
2IVAevESu1m7MObOOjq0KAONrf2H95F/uQ+XIv89A/byYxFxphnYxp5yWxkq
hm4xIzrsSAZSvoSIkwbEGNPqHO6Yi9HTFV73XJWJAPWVVR5qMVbmz0y8tchC
lW9rvue8TEjovE/m57LApC2tu6bOBL3Xa1zkJYFlX+R8b+MsXEr+e3pHuwT2
mg6m9/EsFFnTTPaJpDhzyk0VYC5BcNE0w+27FBbyCbeBoxJQdXkfzY5loy71
4/VPFlJ4Km/dpTnKcFnQmWRWKMW6p4UVNxtk6I3S9VZSs1HiZ6E6JJDDKFHc
oCnPxreLbpbZn+X4KbHr0ShNBnaPfv30wd3YrJKfKT4jw19MSejlFQokFc2u
3rBEDq7/YX39qwqoKocsVWVyNIX6RKf55EDzxMSXtXQ3SlTV9yi9OUjW2daM
n9wNP0UtyztjD9yd47qd6ApElAirzpooYaAtM/Qifrn2vewq8cO97U4BxLGt
6bwHxOGP1uWmEafo7xkcJpYKzRx/I85JKWG6LVCiVt2Ys8ZOgVPerbXtxHbD
1GWslQr0vHW5OWWqxIeiAD8OcVRuQ/4CMyXqXQ9kbSXuX8QRrCBef2D0QSbx
h6DAyY3EO2xbMq4QT95K9iwmLuVlalwYCtiqK/5wMFciarRqmEtcsZpR5EHM
OPHSmk9Mv3dJuIX4ai9PJCV2/HbTUEL8JHuZ5XVi97hn3GbissV87/vETTMC
q6fE0ZqCpE5iTtnrNwPEoya62zriTW0jP86zUOLaFea7uasUaE+UhC8hVgqE
5lTiEMMp+7XEXL1SD3virvLcrxzi+ZWPE1yJI1yNHvKJ/wPO/yMm
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx308E3gcwHGnFJKXh8aWPJTFio5aF90q31rKQ+Th2gp5yoS2MY9joXmo
NcrYNDpdvUrF1SW1uF4Xfi/rKKm7dBSXh6g7C00a08m53/3xeX1e79XRiUEs
XR0dHX/c/w+83s2YJdKhsnR6fH6BCuK8xbUnKXQwp+k/cztJhYeHqXMr3OlQ
+HZlHc+ICltWlF7cyKRDlhvw3hE3wUrhvtGEcjpE94unOze6wnCIMrPfdDew
guCLWzsFko3rq1oNPSFgkdP20VXmUJZWPFz8ZQ902aIq8xEyctBbVTFI9QXa
VT+b/fc90SBz0cQN+/3gLWbfmJIEIVpU1J3e3EC4/12L8IxNCHLN2JD/QB4M
Da2sVj1KFPqZe9X+ddEBkO3f+7D9nxikajPo7atlgrSkMExgG48MnPpstU2H
QHOw43mPKwc9SGJsCbgVChzfe1dW5iQhomVLlOjRYZhU3q1tLU5GSy++CJtv
joCGmUEXNj8VJZN+1LR3R4Izt6Q6PiQdNUgjf9V5EwWbPThvI1h8pPx3fJ7Z
Fw3ZHfxqpl8WIp9Xox9GjwCj7o6LV/hxlE2r2af5GANDrxJri1k56OLTLRCn
YgEj/KdAFfkEspDQmp9Mx8KS+a0KkZMQMegW1X6TR6GH399TY5eHxhyOrmhZ
iAPOamKE5/p8xDfh+nkYJkAEWzawzKUAPXvv86Ff9xjwZI42wWsKEX/6Aolt
wgYfVaDSYv1JND7ZdpNoxIE9VlJKqN0pxJy6qv+HLhcq1ITCx6YiZEme+5Bj
nAiKSZe9CsvTKMBeakNenARTzyIf2xqJUXPniPhEURJM91LqlxKKECWzJDTG
hAdBpzZJSKRipLV2iGQW8+B302CXm8vOoMk+7bpWs2SweGy4+Rezs8hfonDc
JkmG7MO9sz76JajGq/P09mUpsEOmUiz+XIKcSbb1DZIUGBF4HbPOlSDCcJiR
x/JUcK9yfD07K0EUZbezhywVPgZ15Zpll6JLVVuF/mZpQOOL8tmzpcg8c3br
uzNpcJs7mBfKK0P1nKnGT+bpIJ776p5IU4buhryMNy1NB82My94ZrhQNRWiH
rhEzoFW0zujyJykyiEt+oLyQAU1jys7hNBk6F/fqiZrEB++m+IkjahnyE2Ze
kl7ig9vaP8E+pRzFl+nV7rHJhMY5pmbNh3IkvDZOEFZmQsyVtCuNseeQssvY
i2qbBalvwgvFqnMoQWt1S/N9FhDOBrdfOCJHtM0xvRvsBUB6br5N/bcc6fZV
LtqBbdcetXwBuyP3tw3+2Oua6gaMR+Xo4JNv87jYbrW+wq+x06NNneqwDwjz
2zjYtyXNx13JApBs/BQwjk2eINpR1wpgSVkXS6WSo7Eyfx86trHIzu0z9h33
gtRgbEIOV9/gvRztLFA/SsEmJxjeoGCHW7XxFNg7d+2aPIpd4Z2i/MZBAMen
6rP+wo5Q10x4YheMLvjOYDuUD1gysIsG/KyXjMnRvSFvdjr2+Q5Vy1rsrgw7
QiN24+XVeizsSmuGRzt2S0ViTyp2pLIo/iV229mm6wXYamNtkxa7O+uQTzV2
g8J5dKmjAF4nXbdSYOeERJsRsd/GTo8rsT11KrZRsMfC6M0vsI2uPY11x54K
Ki0Zwf4P9clkgA==
          "]]}}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzn8803kcB/D5mUjrhwldqhFFjcfd9/yq5S1G0ja/uqabEttQtjHD5sv6
Qen3NUcXafcI5R5+pF90uHOffixrpauzEvKIsFSUVrnHktz3/ng9Xo/n4/XP
a3miOJpvSiKRWET+byv2da6fO44iqResGwLlQBX6p05ScTS1UFSvpcuBfrQt
65ozjmosfFija+Ug6fjrhLc9jqZH1UoXPzn0B2rQSgsc1TWOOJR7y+GKd4+r
41AusqCvcC9aLof4BVNjRlUu+mNrdfBOM2J/vD6/zT4XuR+vzKN0yEAoqraJ
eSdDCjLFKy5EBmjSZLGiLwc5qrS3Q7U5oHOtZi/ozEat63TcsugcMPJcDa01
WajHEPN9x8NsaC6poPxbKkXrm+zfq7Zmw4EnhgthwkxE/Yk9HqXLArv24/Em
myTIWv7sTWpMFqwtXVbKCshAvuL6Ts8+KUgVyoBLC9PRcJ7hnYYjhcMXP97Y
ZCJC3afwT+TnmVBXx46bpd+NHiDOdFtyJkzcF9wfq0hFwab1jGC9BPidwiBj
bjKaYW/IkAol8OW9dzHNk4/8m1j9e19ngF1i/hoffSKSeTRGGFIzIP5yi5an
SUBf6qLP2hrSQRnOK5IZuWgmJM3LPD0dNG+x/KxLHKTUKcPDx8XAeJbvcdsm
FrmwfJtAL4KiG1d6REYWan1ZuMJ0WAihYasE73NC0fMyDnfRhzRY2rbsFk0R
gExwB7uh8d0guNlXzD9KRY3S7cWmn3fBLclrcV+6M/BPbKaMWe+CPcZ9VT1j
/uDQ7eZ4bFYqCGjqNdT9DOD4FQ3toaTA/r+fOmFqFpzSdNE8yMnAPDckUryN
gT6ZRqGyFYDsG/y+3WoONAQFlwqW8GE7u1wSp+YC7l+7esSBB4bBNOuVhxKg
O/yXI9dXJMG1SLP5jyoTISB39XiMbyLEnOlfG/WGB+U9DQ8vYDvhpqWGVzsn
GQ5FNeUygxNgLmvycu+PqaCfiIrYgm8Hj2ZseqhgN+jEDNr1Yi6o/3k17XRO
CI9oh50arm4D+r0X1FVjYtBGnLeaV8+BYMMnqpVVBvSWdRY4dfwAj9MqQl96
S2CU8YBU3BILNUFfQ+JjM8H826VFZ5uiYdAt5WYgTwp+7LzySF0kzP784ZHt
0SzoKknaMVjChLL+ooSNqmwQjOur0u+EQ+ri7ruO9TlAuWM95W4TCu5hG9VP
Hsrgz23Pt7R8DQJmwY1A0gs5rKk6XfqdeB0kNnA3U6xxuGelO/jbegwsvZiX
/QhXnbmjb6BjUHuJbs8ljNNaQq+uw8Bw1XmgkrBnrMqyPQCDgtaBTG8bHAp/
TTnY5YNBdQfvTMQcHOg+0we+0jAYGUx7vW8uDs1Jbgdil2JwJCmefZ5w0aTD
SJwzBrQR5jUN4R2HbRg7lmCQPUpTkMk4kBsnzHctJv68m5h/lrD4c2vhnkUY
uH2R+v8+DwcvJbuwloyBNp+v6iNs5bphuHEuBqKZLWYzhAeasZAmWwyaTX07
GfNxOPnM0RzZYBA225jQRfiV+3DB41kYjB15pZ4k3NL6ZKjXEoOTc3o9nBbg
oGTeDR6wwOApue1jAuENmRfN3phhkKesiysk7GR5LmnCFINlCyvaawgbTv98
65MJBrdLjrncI6z1POgyRcIgxT7/0FvCle2yAhLh/wCi6Tlr
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzns0lAkYBnBqQ0NXUi5H0zQVyqU+SiRvWwihlkRmtomZcR2XMeMyn5kJ
tawuJzanm+wmVpGirLXs8lJqSpIkIqlsU2Qjt3Zcst/+8Zzn/M7zz7MqKPo7
3hw1NTUvKv+3lvfvLLt1JHK2MS8L5HJkCLaGTTBIDApODe1OlqPj8RpxhQmJ
/MzXVm4SOQrv152y1icxvDO3limWY4+TAk3nkSgSLXvZHS7HW9YvmAZ9Esy4
rrHc3U+O7KVTg6o8Cd4w7j+x1oLa27dLa/QlOD1dmtjbJUNBVIG2z1Aiavlm
9CWZyhAn1I1k3QnYWpiOyhQpPmMWeC9tjsczZLXhuVfJqOIyR6qLxPjgvaOW
0CIZK8/kLvuSI8JqL2WISQaJx56P/OoqiEOTPb0HR59JUK/2JFvdXYiSZu0m
nTUSdMih53jZx+JPbuzSf48koUiWZV+mG4N01ixjQUsi/nhjrN5dPQrDwu7R
xkwTsaTEO0BTGYHXJzF65Q8JOPyI/2gwNww5DJ3QuPZ45DULdqgkIdi6K/np
eet4nP5snW25nocVM9uefJCKUS9IarFZGYSn7Td6JD8WIbv8j4dcBQfNhe52
b81FmOXGTU9UsdAWKqpikuJQ8clGKi7zx69aO0ta24To/FJqflfbF+1CGRsD
6UJMr7/1IkrlhREetjZmMbHo4mrG/5zggiwzwbUHTTG4soZ+x1Jmj3WXxsuz
DWKQ39CdzTvOwFoDlwCWMgrvCAeiu2NMYGRW0834FwHKVSlXXgxuBU3diEMW
2yORb9lowUh1hnNGKw72jYZjakunoU2jF2jv45MDJ8PQ83JflOyTD8SeMjor
sQzFRGPykd4Gf/CpNzx7U8nH770vCAMaWbB8Vc1ftmk8HHkTSTPN4MCB+EIF
ZwsXK/bOXdKaHwSZbRPNeiNB6HOxx2HfRy7ksftVBlmHsUFDwS3WCQGrnjW0
u64cXOg1Ud4VGAa7dDVTZY1sNK+0melLiwD6Ab+qWvNAbHzaP2N4WQB/F8f1
Lb7kj45Nbxlmg9EQ4d8WOK9zP+4cGWdoacXCh+F7uTu/9cH2yFyX99ZC2NA3
bc4U78WiHV93sX3j4OpDdZZFuAe+WRva4MQVwUDBxtHC3S44f3K0dcFxMVRs
UjKDqwDP96RzdufFw6sNx1pCFmzBMKOOBwbXE+BJyODe/D/NcJ3r7sbnTxLB
mk4LcTCeqfNMq3dSe5sEahmZm5yn6BBUytqzjEbCVMPn2/JiAjSsPMvtKNMO
+95qLyGguMxRn0V5xWxl2fpSAkZum7zOp7zZIbm04yYBadWv46y1SSBvaxRZ
/UZAwX3uRQ8dEiavGF3orSPg3ZvIgZSFJAwfdT7i1E5AZjDbu5Dy/NVXZTnP
CbB851mhoLyinib92EFA/AdL2aJFJNjOtCSd7aL+DA0vuUQ5RnwwbqiXgLXT
oq1Vi0lQ8qL5Pw8Q8FDKy+umPD73KXf8IwFRs/vnzlL+Jt8m2OMfAirnbGl2
XkLCqleqQ1+GCHCdr+K0Ueb7HQ3wHidgMLO/cYKyfEx5oHCCgNM6XeaGS0k4
me3mN/WFgM5FNWMcyiWPF/oUTRKQnFUScJRydWTsvpkpAui6ubVFlBW0Z94+
MwTcPXNidRPljqubva59JSBUX5rxibLS5fye2VkC/gPX9GPI
          "]]}}},
      AspectRatio->1,
      Axes->True,
      ImageSize->180,
      PlotRange->{{-434.45127800274247`, 
       434.45127800274247`}, {-434.45127800274247`, 434.45127800274247`}},
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]}], "38.195070624002724`", "33.51584110176813`", 
     "40.668149210095585`", "433.18325334127155`", "434.45127800274247`", 
     "66.12776740525291`"},
    {
     GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxdV3k8lVsXVt2Kkqio7jUVRUoiJIVlSMY4x1CGZAjHdM4hs8zO4bqZum4i
SpEGVFSIZCeRolC3uhWla7pfoZsmUT7f2fs93y/nn/Pbv/fd717rWc/zrLVX
ubPonrMFBAQMZwkI/O/f/fvNBdJjXtBRsXiHpvcOlBd8eSDX0hs8qwwD/lYz
RCEh6QmKv3vDlwklu2Xx+ki0ONskf8oboptSRy2/bUPi8/5mWK5iQKyJ43aV
3K3oi2v2ysLNDDB0c74iOr4Fmdj90WgQzoCRcjXmvaxNaPHcvO6ENAZ4895f
h5S+is39q5QBme1C/zSfl0LCjhsuZlcwQLbhU5ewngR/LcD7aelQ60f4OVD7
Pe/z9oMI+X4L/j4Yk/PFL/DOhw8kvkM4PlhC4r+I4wcqvwScHxwg+QtO8vKH
IwSfaIwP7CP49WD8IHnqvq2QlxeMl3b1tAiawJ07Z9d5a3nBuYCbGSWvTaBw
TnJl0zwvKOKdZwoXHhm8nOPhCV4qoOE5Zg7fHYXcQtv2w6L8eoOT+ZYgtjpz
/Yeg/SD++TeNoNxdMOzxoPz+PQ+484y9MGrKCoJ5cXhAhepV1slsazDN2XKn
pNodrpV2PND8ZA3icsuyuTruUJvRV7vOhAaiolWVlmfdYEQsJsI6lwb/4f27
gULFtfs3C2kwUquTqvzWFWIEb6UXPKWB9GPd1M5iV5jq09xfN0SDRt65++By
UfZck1l0mNfbt2u81QXqrldfcvtGg58sq7sXCruA3ETg5Q1jNLiU1S9n1+YM
sZvG7Pc8pMHBh1ZctT+c+OfrXt/yINjQCR4beD0rSKFBgrue/iIJJzBLLkg9
dpAGBTycHGD1J6cu7+/WsLTT5JaE7m5+/oJ3PeoyzttD+46dusxQK0jl4W8P
kR3LmRobrCBu5JPHsLYdVNWgdYbnLMHDS0FNrcoW/o08F9/9xQLkczdI5xy1
hSpenBbwUWrEZlOnDdQ2ZtrXZZhDGA9fG8h8oK00EWQGci8clNPH6WD+Tfn6
XwvNYNdWMyHdm3R+Pam8Nuqsf8mS2AlhN5KZu9k0iCmp852oNobLqu8PfbWm
QSYvTmPIf236uPGGNciIl13+PmgEC9SjxJ9zrOGOYeshaT0jiFHxrnqhbM3n
26tcM1aqpDVw9srkmY4b8HGQeTiqrpxqAK/DqszULS35fA6+JNNnZGYBiyIe
vJ2zRR38yq8dnRo1hw/Db+y1IlVh8+aPDdGx5ny9mM/+rfewmjkouuecKdws
B0WB+7Yf6TeD+ky6ALv5J2hb+Tir7LEZX4+nyPNNGbznyITs73Tj7Ucq5PuU
3veT86/i8xGLxDcYzosP/UXip/xEIGLL7XqhXbBYuP3OuSQdROW7GueLnhM8
wjAeKJTgRfnXvX6jfI0T1qB2xjnvYaAROseuSzwcSINZBrbAuWqMqHop43oh
A1LP33A90U1n4SU7J+jweeLOe29BMzSDD2gZ4c9xzB/kTPg1gPmFThH+9WL+
IYqfzv6hZeGyVkiA8Pc25i8a78D8voTzRDP4jwrKtO/puTqBH92jp8uPhih9
5fR5nNl7i4YYdxNPi5e5gGiJ/fyYlzRE6fU842O3xxgN6eQvWj161RUq9+Sq
xzXTEKV/lwTR0Mh0GprNzlwtoeYOKeu6n5io0hDlL5ewv6AvxH+o+MSJPwlj
f0KUf4lg/0KVxN+csL+hEuJ/FL5txB8LsD8iyj8nsX+imf3p6+Yk2YtKSXyf
1XHqKQ4XT4LTphfMteq9oCpl7WDZVCKk6ly83CbhDfR5HwPELBIhj3eeDxSG
JXW76CYC3XLvN8kWHwji5ZcIrm1Pr50e8oGnZ54zjf9JgDmJXzWKGnxBZYXt
ifKWBDixQuFttIwfbOxzHVvplQCDg287Don4g9Siela5SQL4atiLF9n7w/qP
4mYM0QQo59XFH/7h4RsPt0cna2k1AVCa13DcUD0e7n4LLdzpxwS6csyL7yrx
MFe+P+dYIBOK9Y5Ncdvi4Pot67+LvzNBVavomv6xOPh4PXPMU5sFEVcy03OE
4sDhxuKhJU9Z0MCrQywIRwtpC7xmQderShX1sVgYHPhgMzwwvR7jaM6pigXE
e48FkYLpWRVqsdBx9JRG+wo25HfnTtL/iIGWZWd8FVXYoKlZunzIMwbsdqb2
92mw4aGwZcRGpRi4dURCPmwbG8RdzoWo/hINrVsPPsndxYYyXp4HQVvMVWWt
NRuyYk4aWEcehKi4Sa9GGhsq49BPe6Kj4J2Ag6ONGRtWD8tsalSLAlg4peNi
zIbBuaXHz76PhGO2ysuf6LHBZoFKR9jFCPhZJW3lPAk25PLqFgFZhz7Gb1nC
BrMeeoD3rxFw8UmDLWcxG658H7lqqB3Bz882NKzRsy0cXPfoyft1smDKnb0R
tofDa+drepu5LNLfwyAxR+pYuhcLypU3RAdmhsHE8IngNatYkLfnW83ROWFw
VHGZoXMTEwztAoXOx4cSXJjA5fEuFHpWH7p83ZoJztJGuUM9ISBgO5F35FkA
WKiML418FAwW2rd/dX7hD5M8PQRDXGB/345H/tCuX/SyqzUYFjZVrM3v9IfU
1/tD7G8H8/kyWwb5vWs5ABno7dptp/zgAI+fB6B7t62a0BNfiHr4+azboyBI
FXnfpGbvC026/wbpOwfx+Y31HAgcB59sAToDtjZWa+qtCITB407P1jO8oXaB
7Bq3fDZfP7GTesmlVtO49jbQlJs9+Tiezgs2TlrqCX0bT8x6fovFn0vEJJvF
niixQC5kxCt5/n6AP22eH+cw+XMIhdOqSZ2HnHkeQOPEfHLtCICOxvN5Tza6
w4d5HCMZdgB/7qDylvUtsLiV7godAWO67Tn+oJt13neHuitcsrPxS43y588d
SpIXnEKl/OH66Kyo+pPTc0d9r3RWjB/Ev3MzrlZ3Bnkev/yg/JNi8bL3jvB3
+lHJz/2+/DlCM7YNLU/xBc/nIZtd6nZDy6RMxM67PtAp/WBg6R82sFp9H5dZ
68Pv+xSuJTlD2yu20eHFh5KFO8R8oCBHYepJjTn0VCt0Grxj8Pv/0jLBW9wW
BnAfL92dRjcG+jqH9f6HGRB6UvV10SDAIr+b0f3h/583neT6f3/lwIAgHfd/
D+iogNSkafUvNAZ8bvmJphUvD5JkTfVb6nkOfo6o/SJ4PxIm36f6J42c747P
R2IkPl8cH+om8VN+/Jzkl4LzQ1T+53D+SJbg44fxQU0EvwaMH9Ig+DpjfNEr
gn8Wxh/NqA+qJfULx/VD8qS+xbi+qJzUvwrXH90n/NDG/EAUf4ZC9gsZprgi
94eqp2ZnMYGJ+YhECF9lMV8RxW831l7F2HmeqIboIR7rAWkRvfRhvaAZekJb
9pnlrB0NhK/lNwUShxkIEf1lY5xQBNFnMtYnmqFfNIvo+xDWN6rh9asDsIY9
UP18yA/9R1VbZLIpGM7gvNA94heC2C8Q5Sex2E8QjfgNDfsNciR+NGXD8yM0
w6+QNvGzTVin6Cjxuxzsd6iS+OF37IeI8ssk7JfoG/HTV9hP0Qy/RaeJH9di
nJEJ8esL2K8R5eeWJdyX55ewkf2Pfo/6fuwHiOoX+lpXGi4asdHVH/sJSv+x
36AZ/Qit+LFfoY4f+xmi+l3k8vGOPHU2OkH6YTPuh0h9tH2XXmksP58/SX8d
wP0VUf236KV14dZeFqp3EllPWxAHRqtWhm74k4Wofh60qu/4689MpMPsVmVv
igdhi5G3405MNGM+QMpkfqDqL03mCwaeLxA1f5jnp737stQfpX+NVvBECSCN
dYU2kXmlAM8rqIvMMxJ4nkHUvCMUpa8k8sYHnSTzkBWeh5AtmZcoPs+Yp9BR
ZQlHTYkkWPh7mqwK8kKTZB6j9DPB42cSmMgqmT718kCH69atVO9Kgrtaty2f
mXqgRevOTCg+TuLrc3NpXeu9gSRIC4m8m9bqjoa80hVSdnP4el8jOMCOZ3Hg
RYVeXXKFC0qYozq3LIMDxXjuRaD89pleLgf0fLi5PUrOSFTKtrm+kgNiLbk5
0p6OqFk69r7aDQ7ffyLGF/0S9ZgDLQPm2+wu7kaO+vP3Kg5zYPtuyRiFLjsk
6Ln0+PL5XL6/+abVOyRIcSFvTU126Yg1Gqy1Umtcw+XPv3cjVbp/VeOCUja9
am2nBfp9pKm3ZHpdeO/BM5vW6ftAa/LCge1cvr+mm96pbDHkwpp/Rn4RD9mJ
2u3elt0148ILGvNN+4AR0t5gN7rRisu/v7CMR6SGaVyQWKM1JfOvPpJsPZKa
58iFJHG3RMH525CxxVWFXicu3+8ly2s6LjlzIWUi45o0Uwu5+BXTbT24cJ82
1cwyVkKXD6eYxk6vqfuYqvG13CPT6/Njb0LjJhVRAq+OXNxvQKv+h/V0//lh
LUrXofYv+MDbD7KHtGXDptfUfZI6fyOddz5Q8dXg+ICKn+qHVH5VOD+g8lfC
+cNWgg91H24j+H3B+EEawVcL4wsU/lR/pupzBdcHqPrtxPWDAVJf6p5J1b8Y
1x/Kbo+MRghx+fOB+5HunOIpDmw4EyjYK2cLDoRPRphPEE749gzzDSg+UvMI
xdefMV+B4rMu5jPEE75T9zx5ooc+rAcYJHqh5qPgR2qFbfIcMLRxSZBwc4OM
Pb57z71JAjnUELW8yh2Eif6oeS2L6LMd6xNm6Bdm3rf+C3b0R9c=
        "], {{}, {}, 
         {Hue[0.67, 0.6, 0.6], 
          TagBox[
           
           TooltipBox[
            LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
             17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 
             33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 
             49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 
             65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 
             81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 
             97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107}],
            "True"],
           Annotation[#, True, "Tooltip"]& ]}, 
         {Hue[0.9060679774997897, 0.6, 0.6], 
          TagBox[
           
           TooltipBox[
            LineBox[{108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 
             119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 
             132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 
             145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 
             158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 
             171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 
             184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 
             197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 
             210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 
             223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 
             236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 
             249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 
             262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 
             275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 
             288, 289, 290, 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, 
             301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 311, 312, 313, 
             314, 315, 316, 317, 318, 319, 320, 321, 322, 323}],
            "True"],
           Annotation[#, True, "Tooltip"]& ]}}], 
       PointBox[{195, 20}], {{}, {}, 
        {Hue[0.67, 0.6, 0.6], 
         LineBox[{{-716.7545270355032, 20.}, {-702.6856093130621, 
          20.}, {-688.6166915906208, 20.}, {-658.1120536280448, 
          20.}, {-629.6289063495556, 20.}, {-601.7044853545597, 
          20.}, {-571.4132618418702, 20.}, {-543.1435290132675, 
          20.}, {-512.5069936669713, 20.}, {-482.4291846041685, 
          20.}, {-454.3728662254524, 20.}, {-423.9497453290428, 
          20.}, {-395.54811511671994`, 20.}, {-367.7052111878904, 
          20.}, {-337.4955047413673, 20.}, {-309.307288978931, 
          20.}, {-278.7522706988011, 20.}, {-248.75597870216455`, 
          20.}, {-220.78117738961478`, 20.}, {-190.43957355937144`, 
          20.}, {-162.11946041321488`, 20.}, {-131.43254474936475`, 
          20.}, {-101.30435536900795`, 20.}, {-73.19765667273793, 
          20.}, {-42.72415545877435, 20.}, {-14.272144928897543`, 20.}, {
          13.62113931748593, 20.}, {43.88122608156298, 20.}, {
          72.11982216155324, 20.}, {102.72522075923708`, 20.}, {
          132.77189307342758`, 20.}, {160.79707470353128`, 20.}, {
          191.18905885132855`, 20.}, {219.55955231503907`, 20.}, {
          247.37131949525624`, 20.}, {277.549889193167, 20.}, {
          305.706968206991, 20.}, {336.23084973850854`, 20.}, {
          364.7332405859393, 20.}, {392.67690514987675`, 20.}, {
          422.9873722315077, 20.}, {451.27634862905194`, 20.}, {
          481.9321275442897, 20.}, {512.0291801760342, 20.}, {
          540.104742123692, 20.}, {570.5471065890432, 20.}, {
          598.9679803703077, 20.}, {626.8301278680789, 20.}, {
          657.0590778835436, 20.}, {685.2665372149216, 20.}, {
          715.8407990639931, 20.}, {716.2976630497482, 20.}, {
          716.7545270355032, 20.}}]}}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx38803kAx3FURCqZJb+utJKWS0Wdi+yddD0ULitCSBlCzMZsZu27DZOY
k9IlpEvkPB66B9Mv6uLWHo/zI6dfupTOj+vKg1JNdJLuc3+8Hq/H0/4Qlx1t
oKen50/6/w3PJXTHujeeHnbOL3rELzw7AmuGNIxO1vt106n2jRrWPWZwrpLx
jHUyxp+aUD9g7aWvexbLGGVx5MLZA+oh1mmTsuxgxjTr7gLTHT1qHeubOeze
3QxTyAODXnWrZyHHoG62H8MWT0Wf3LrUNDjLe612MZxwzMR/oFPNwPfzppRb
2Fsw+uSt+escV/AXz682+X07dNd7u7UyT3yObgpz1fjC1V0u0DK8IZwfNDjC
ZGNjXwDPjeeD6lu0XJU6ENFZ78UWHH8cO58ydzQnBImTl9Jl/QHoWD7Ii9sZ
Du8V/3TyFHsRdcsk1iYmEo17TC9ZTgbhhkIg7/c9BO3fhde150Mw0uBV7Efj
IEn0ebejXRjubrD8qr07GurMdD1DVQSMOz1oKxtj4f/xZ92HM5FY1n1H31EY
hwXr8piahwdx4nV5mHFkAirO2By1WBOFhlCp0xQrEV9uuuxnZHBweUPrh6Iv
SagdvC3Jb4yGQVEtPZufDIdvP91InxsLm5aVdRaBPIwV1m5u3X4YA+I28cmd
fBy3Mn6cXx4Hqu+twVn3FOjCx2boY/HIE7TlpNqmoqbSJ/7f1Ufgfbbdy9NM
gLXWe95FUomIH5dMPdUJoFfU3bz81yQcnmg4ov8gDRXaR4suTHBBy15EX6wV
Yi5d23r/YjKcfOybZqpFeLkjpEx/Gw/vS0KKe0rTsZamzeK/4aGwiL5mU74Y
4TfHN/x2mo+yFsWtuCMZWB/z3OC2Swr2ZixR5h+QIKmmov9zXwrECQd2ZXod
RcCIdf+wJBWiWcwOfXsprE1DqxqXCMBwtJNzzSn4aZNFra0CeChaXep1FByo
rYkZB9Igc92x4F2KDDH3hrlCEyFKvAzluhcy+K7wPbWsVohzK4zu3QiUwzqQ
L635ToQpX9ubk11yBHyVnMZ/K4Kp2fGqpVDA6dWqwuGCdAisTJm3mxTg7bx2
7cJmMdon/shb7pKJ8uMmVZuHxOhJGh3hVmYiucOykZJlwO1ru5eudlmovTjd
bbhGggBldf9QQRbypKUL3dslCFLzrgXNZIG9aYbmH3MU9Q4Bq7cKsyFXujlU
LpRC45pbQn+VjX2PnUKr6qRwyn108eAhJX5s+Vg6HEyhrzVtWzLxE50rfYa4
YMpyUEpsu4pXYB5C4V1C6NIy4krVsMyd+Kr/XyU9xL+E9kariLdaDBfsilKi
bbzZeX0ohaCKadFGjhKfHCmNaD8Foz/LLb2JPcOaPVTE181YV9nEsh8mr/xE
bKOQ67jERhPcmnbifo5hUi0xTROpsg2jEM80i1oarYRTuNe+FmKbqHr9tcRJ
hdLuh8SdpezzHsT1miafYWLn+cV9IcRuTBcP83AK42NWwaeIvScZ9hziasfm
iQvEx5iRZ0XE+w6GFdcTd4SX0VTETffP3e8iZt+xMLxKnDAPvD7iU5O7qXZi
W++BhaPEj5mqj8+JuySKy1PENhFtPB0xdYXhZxyjRMSJOSNGERT+A2S4NaQ=

          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx38803kcwHFURCqZJb8qraTlUlmdi3gnXQ+Fy4oQUn6FmGE2s/bdhknM
SekS0iVyHg/dg+kXlfdu7fE4P3Lrly6l8+O68qBUE52k+9wfr8fr8bQ/zGHH
GOjp6fmT/n/TCxHdseGth7ud88se4cs7nYF1Q2pGl+eH9dPp9s3qtvvM4Hw5
47nnqVh/akL5sG0fff3zOMaoZ7SUP3tAOdR2xqQiN5gx7XlvgenOHqWu7ds5
7N49DFOQBga91ipnYZ5Bw2w/hi08E3x27VbS0Fnaa7Wb4QTHTfwHupQM/GHe
lHwreyuMPn1n/iaPhamL59ea/L4DdDd6tRqJB36JaQljqX2B5SblaRjeyJ8f
NDjCZMOmvgCuK9cHa2/T8hXKQIjJ+SC0iPbH4xfS5o7mhUDS5OVMSX8Adq4Y
5MbvCgfvlf90cWX7MOq2SZxNbCQ07zW9bDkZhDdlPGm/72HQ/F18Q3MhBEea
vEr9aNGQLPiyx9EuDO9ttFzaoY0BZXamnqEiAo273GmrmuPA/9Mvuo9nI3G5
9q6+Iz8eFqwvYKofHcKTbyrDjCMToeqszTGLtVHYFCp2mvJMgq+3XA4wsqLx
ykbVx5KvyVA/2CYqbI5Bg5J6em5qCjh89/lm5tw4tMFVDRaBXBgrrt+i2nEE
B4TtwlO7UuGElfGTwsp4pPreGZxzSwNd+NgMfSwBC3jteem26VBX7ZPw75qj
6H2uw8vDjAfrrPe+j6SSMGFcNPVMxwO9Em3rijvJeGSi6aj+wwyo0jxedHGC
g7TcRfTFGj7MpWtUDy6loJOPfctMrQBe7Qyp0N/OxQ9lIaU95ZmwjqbJSX3L
xeIS+trNhUIIvzW+8bczqViBstvxR7NgQ+wLgzaXNNyXtUReeFAEyXVV/V/6
0lCYeHB3ttcxCBix7h8WpaNgFrNT314M1qahNc1LeMhwtJNyzCnw06QIVCoe
ustULo06ChyobUlZBzNQwtq54H2aBGLvD3P4Jnws8zKU6l5KwHel7+nl9Xw8
v9Lo/s1AKVgHporrvhfglK/trcluKQQsTclIfSdAU7MTNctABk6vVxcPF2Ui
z8qU2dYiA+6u69cvbhFix8QfBStcsqHyhEnNliEh9iSPjnCqsyGl07KZkmSh
6zd2r1h2OVB/aVpruFaEAfLa/qGiHCgQly906xBhkJJ7PWgmB9ibZ2j+scew
0SFgzTZ+Lkjlrg7VC8WoZuWX0V/nwv4nTqE1DWJ0yn986dBhOfyEn8qHgyns
U2VsTyF+qmPRZ4iLpiwHxcS2q7lF5iEUvk8MXVZBXK0YlrgRX/P/q6yH+NfQ
3hgF8TaL4aLdUXJoH2913hBKYVDVtGBTtBw+O1JqwQEKjf6stPQm9ghrdVcQ
3zDzvMYmlvw4efVnYhuZVMchNprg1HUQ90cbJtcT09SRCtswChOYZlHLYuTg
FO61H4ltohr11xEnF4u1j4i7ytkX3Ikb1S0+w8TO80v7QohdmS7u5uEUjo9Z
BZ8m9p5k2EcT1zq2TlwkPs6MPCcg3n8orLSRuDO8gqYgbnlw/kE3MfuuheE1
4sR5wO0jPj25h+ogtvUeWDhK/ISp+PSCuFskuzJFbBPRztURU1cZfsaxcog4
OWfEKILC/wBpOlyk
          "]]}}, 
       {RGBColor[1, 0, 0], PointBox[{56.43875303035491, 20}], 
        PointBox[{715.9879122908927, 20}]}, {PointBox[{53.60970455332655, 0}],
         PointBox[{197.82904847702838`, 0}], PointBox[{716.7545562907912, 0}],
         PointBox[{194.2333560001015, 0}]}, {
        PointBox[{84.35896784485567, 59.06878520055845}], 
        PointBox[{84.35896784485567, -59.06878520055845}], 
        PointBox[{305.6410321551425, 214.01215470122708`}], 
        PointBox[{305.6410321551425, -214.01215470122708`}]}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx3k4FHgAh/FxZEUR8zg7yHoUibRCWvki6ZhZOarNMcY5hZy5mjFmHINp
Jl1ybD22lDPFto6nUimhLM+UzCq1OwitVlZZJQ372z/e530+a0NivcMVKRTK
D6T/P+ezlWfuQIP2qsDvFSi2KA2+V6jjTcMURbgg2mULx1j3WoVoGrpGm+7r
n7YFR+glfVFGA//GCvdNJluwcP+IpfAbOiZd2+lBO+ygaFU6MCGlo+PIhqDW
PAcsU53fdC3JE5zmOX6alhM0GX/EFR3yQrx590iqlhuu2Ae5yl75omHCw8xu
jIalZx8snjL9EdFtjYM6aj7orfiq+djfH7GDc07KwoPQkf2LzgEGGKrX1xRG
BeB8z9vrusuDESTxow5xmBh2auq5JgnBkorz0q6ZEDDUpgpVRGEov1wbYREc
jjY9A99z5hGY841Ue1nOwmjzZZMlEyy0rwie9NOLxHTx6vFq0RHszlR4Yx4c
jY1Spf3a66LQYciuTCiLgUXF7r7AN9EIYOju35kbB81mnsfrrBh8p7aD+aU6
Hn516mNG38bh4a3l6nqjCXCvWybfTImHZMHtQpzhMVyhq2gye+Nxa7Wn/bRj
EsKarasX6hIQ5DIb/zIxGcVtXtubuYkYck5omihKgWVhuf8Q8xhWuwlLQ5+n
YkC3lj65PQnSFxrhBurH8dmh1pGqkYyovYe3zlqykWY6eKPmfTJutwXWbWNx
cLReyTjgfgrGtddvqBKlI21iKGxKnIqCT4wCr2tcjE1O2cxEp+GDzOZs6JsM
dJ6endN2Oo6SZ9H7erN4UF203FO+hg3dZo11ZWv5CDY0iNX5yob36FjcyTt8
WEnlJy894WCeV+2sRc9EgL+2fVlNOhSNHBldf2VCzjN62cTmIsWiUYHKyUKT
77BX/a4M1GRE6HPUszGeOlElpvLg+Pso16AyG3V6TLN9bB7sL3hG7nHIgelP
k6zudzycC829eqM/B/0xnyr6fPlgFFeHVx0W4IxBgOS323yM6yqW3PsswGLV
QCt3QyZ6itavUi/MRUXe06rWs5lYK9hqOmGWBzlt+GCjchaeJetz5O15YL6l
T19MzIJrw0YPa2Y+5H1b8qiDWTA6tLFo5p987LmyZcRlbzb8lObt3ouFeNre
sE1+MxtKK2/6s41PIOxOHrfaMAeRnEsfzepPoLI4JUdDmAMrWeCgCk0E00fD
+ZQPOWA2KO86/loEb2m4d22IANPZacombDGsHHyetBDfrTd/bUusXgrXDmLR
qxeNHsTtgSs3DxGvt3VkHSW2G5Vo6YUKEDTy5XELscHMtqeZxN0unAJPjhgy
Le19fmECXF3gGqani3EncbGTRZxgYf2xgLik/2/nJGIc+LP7MrF3Saf1KeJX
dc7pXcTtxumaHcTUQIqMyhWj0vptr024ABm3+VdriLNP9+90JqaP23BbiZkf
H9ylERtShw9IiPWbL15nEf8a6ao6Syzc7nPyIvE7A6UolwwxIn6GSi1xi/tN
N19iN0UrbguxID50FYv46yPVmD5ik8cPe0TEA+tmR2XEUzOJFWXEjfkjge+J
W41NM34hPvNO0j9PLKI9P/iIOIZ+l740QoBDqdmbBoj/A0voP3A=
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx308E3gcwPHhkFNWW0uqmx4WV4mGjuPie7qu0uYaLsUIkVMopxYtzMM0
O1zMw2heEckspfLUa+V+SXmpyEPWUlceGo4muZJidr/74/P6vN5rgo95huoS
CAQP3P//7PU9b4MjA3YFyxM1WjsoCvorj+LJAE5PPWtTpB04Hdsh04lgQNVP
N9Yd6LOFM0KW4vkFBhhaSltra+kwj8KthIZMED/bbK7stgZd6yLlmIIJsrE3
LnWX1sPCBbNbrpz8BTr54imu3xdXYsCr4wUHWCBg/aaTVbsFlTscdOt/6Q2v
5PbOTa4MZCRq1p6j7YegFaX2inAf1FExR2zz84PY6X/UIrdAROn/CK3KAFhk
ojU3sgtF+e2jV5ctCgLSwU8mq56Eo8Ft9e1XOoMhJOAoe7Y9CgV8/S7PICME
gmu/zNzri0Z3Tc28czccBvd99LUHaCeQquHiWv2xMPB5cum09wUOei/+ZkSa
EQ5U1R/XqZOxaLNC71eS5VGIJMRnuG7loo0Vu3v830TA4JQs/4EsHhEbeDv/
TomCxcmMxFUzici32njYfN1xoJ/I2/PWKQntqF6osSVEg/lGofRjTDIqZxoQ
AzuiIfxqA2e4IAWFNNhI56t/h53UVD/h01QkvstyaUiIgSR2+jXKHB9Z5ZX5
DQSeAI+0zSu9fziLlMtkTLXLSXht+0x5hyNAM44yJ7IJBx5X39InStJRHO3F
taoJDjCXOruT+4QoskZvNRudgg27P2rmdTNQ3NhAyLvMWGgj1Okts8hEw+p3
9A8RcaApI6/pD8pCrdnTn0nbTkMWRVadLfgTLdBauZdRubD/1uS3s4fOoaAV
Zscoc1zYIzWh3SNkI2uFJqv04RmIILQp5nOyEduP5HChKh72t3tScuk5SMMz
76vnJkC0Tpxx8f0cVO89yKrZlQjj06VV8n0iNBI7VplJ5oFNcFGv3QcRqjYN
tNjL5UGJvU2j+dlcRDuvDns0zoOXZ0QWoRZ5qDfqU0WPdxLstMplUOV5KMeM
3flYngTk4oKVakY+0lYq7yRsSgZpyhEOZTwfVQi6Ku+IkiGy67ngekIB0jAG
feq+SoEvucstL1PFKHCU+b44JgVGzXyjbsjFSNOzVUB+kQL6Bo6RdI9C5F6+
dejHPanwNkz1yUhdiLparjtrbqYCgW7jtC+pCIXcFiRIV/CBI+eubySdR5fF
p/gmQj7UywskMTXnEe3+YDphig+0dXsfXdwuQZ6KUE9ZcBqwCUr+piEJsnb0
etiIvXvAUOyCbVwEbg+wHZodqljYLf4rbQewSakFHaewv1N1LjE9lAZthj6m
LdhmH5y7krHtiYpK9hsJ6l9C2usbkgYLqU8fZaok6HaMtjUMe2Ze71UJdmHv
W9eT2COv7SZvYnsWttqcw24uFS3tw25ZHU98gB273svfYliCLtuMdtBD02DI
qnuiCTs1u/dnV+zuRbo63diB/zY3MbCbJuhkFfbyhuKrYdjimmwH4xEJErp4
ZRVje9izeD7Yh0vAQIbtTEnKOYK9Xdc6oRF743RNeTz23P0FUT3Y+o2L28qw
lZbTqn7sKTG8qMeuSx/yn8DujzuubsPOGe/sncXu8C3RvsSOYjYxjQ6ngdy5
c8kk9n8M6HeP
          "]]}}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0Hs0lHkcx/Fxt5hVqFy2m0aoHWw9ODldvrUNFWuHRkY1LhOGyLgNhllm
xjxPmKSrY6e0J9NlVnImbdqw+jWj7FQSNrJabDlZt102Og2N9tk/PudzXv++
13L54QnGFAollNz/b4vnMz5LJNBFvX+57xMcTN8rInEugW43nV9yQofDh8Tm
ZKMYAukK3p193Y7D8J6P5fpIAs0Z6hUVbTg02BT2ju0lUIjxetXYLziwzkl4
j+kEWrRy0FarcVAoS0rlcziK/mL6g1klDjRNZQcVx9HaHar43lgc4lM23nU7
LUMenLQG2ZQMxjlwjHezGPXn4gf7JDIwYXo8XfNMikQvv28OdJRBUH3JiakB
CapZanpWe7UYuiKSnUb0YpQRdL9tJKAYiGSNxd+mYqSNeJ5q3y4Fhf7VtiGP
QmRRO9gRHSGFOw2+Zn5JIjQ3v600dEICbruLKm5L8lEC7V1TcJ4E1iXpGmTN
eahwnz5wykYCgfJ77ozFHCRv/Ci/oRRDK6GI+dJFgJwWIoJyvxKD1kHkw2Nn
IWUepelZeRGsLAht+5WfgZzqKN26a4UQ8KB8/+Y1fJSZsnBoUfsdRNwqYoou
p6DVtCpFwbQInMP399j18VB3+fBDe2sRzK/wKGF+E4/6px9fncUKQHZyUDOQ
G4vemMZlTofkwy1zzU55UhTqvjKjdksWwskAXdxNbjhavp12RXkuD8Q/uLu8
KGMgTomxbGt9LvgLzSbUwXSkfyJ1XNWXAxPXeuIsczaA8IJh1RbTHHDm01hN
LQwwuNDs+KsFYKkefVM7GQa95yfvTe3NBnq7/jTnTBQ0oNjQ49wsGJq+J/Is
i4Xs3E7WwaJMoPYLFkVW8VDmPmybcyMDTi1hzkt7eaAsuXi37mE66F092/6M
S4F1j+bc2YN8WOHfOB43kAaPzlxv021Jg8AONWMfMwOyH6gDMjJSIWvSzFBh
lwW61wan2vajELz56Ez9fDa4J9Z0O84nQeVoR0i+Jgfor8pmHYN50HJRfuCA
JA8WkpPm5VcSoFzIrrZOzIfuqOp+7Pcj8FxLCz62QQThW5e78r240OpL8VM5
FMKA+O3XQ9GxcFzl2/lurgjYTZFnZd4ciNt9Z1QwIIYQ9tGMY4NRwNoTSQw+
k0BY00ZjDeMAUEyE7JUNUlAZCRK2jIeDU2u7ZORUMaybYa6l7/gWLKmX9lZJ
ZbCMt+yPVuc9oLab3e0aj0Pd9bFtlek7wauua7CKTQAa9rMsS8NgA9PesZH0
6bY7bzpTMVg/ywrrIc1VYfeXpWCwautLLTWKAJP0TTmXeRhQnw6qpKRZn+gj
P8diMDkxkZl6kIC/Vrqh0XAMajeaW8BhAmwP2ecx/DG41hkEHNJD28/sl/ti
UJNVKswnrXZd6t21GQNFs83kT6TDxj9/e9gHg9Jg+y5PDgE1QitWticGSSlr
LthHE+BXZeSjdMEg3pb7mw9pc5HYeswJg9jbSmoo6b6YT2+9HDFgL6wXl5DO
czdUNzlgECSnJxhI6xo/WHdTMdjlzb/kHEPAj4rc0RU2GGzvUff5kxYWvtdw
rDDwc8H2ZZJ2CZwVjpljsOm+oLiC9IRnVoS3GQZeR+621JFuof7rIzAh+1no
53SkT8yk2zQbkf1uBHiPkua8+GeUQsHgP9cXRNM=
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0Hk41Akcx/FJrrVE9ORKqSRHun6LlrLfekiO5CwqOXIrs66JaZ45zMzP
yDrrsSVbWz1JI3YcJZn4RluxhorUrprIoCJbiZqE/e0fn+fzvP59r4yk+0er
0Gg0H2r/v66Q6fZdDIk3lzawuK9FqDpduk8YSaK3vmwnZ0SEX2Ka4heEkSjX
GdJjK0Q4sOtbnnIfiQvVdC8fHxBhrTa7740HiT6TMTLGMxEGnuLFdtiRONy9
dPnRByIsvSTKyZ0Sol4OoyWkQoQWrSUyHaEQ42fsVYg4EUYl2jasKRJggteC
FpMX2fg2FI7GVvHRUCFb73QgGxf6WnWad2VhoKVWz3A/ie7Vol/e9fNwsKe4
+p4fiY+C4o0VSi6adizb9vKhEMn4Vo0JVS5etp1UsXMTYqny+baXVmxsdvhx
Vl0qwOu19moOcSwUnuCKjbYKcI0rp6COx8SzHksKwmr4uDquvVbQlIGH/K5a
yjfwcWdu41q3OQbWqFR/fC3JwmayNGydaToGrJifslqbhW1LWBtjg1PxksDv
2u/lPDQ77nP3AT0ZXYPen9ltykOnO3kBhDkdU7rnmshiLgbVcHxZFxLRp3hR
0Wd9Lpr4B/ToP43Fae4TJ+fFHPxqaCXy3R2F4qTCxulFbBTky1v7j4Xj3GZF
+bLPLKxRb92eGxeCdE/D2f2K45jv1B5RFemPzpPejZoKJnLPrzV9csINr6SY
Ksy7MtExU21M4mWHdP54WkVHBo6V90RoMmwgYLQsaVfnMTShWwTekrrB05Uj
ff43GagpGR0Sj/tBw7tNlztvpKPdfWVRaHEIOBYufSU5n4Yv3zeyrE+EwxPh
P9lVeamo83f6HEsrCmTaF04a56dgoZ7v16y+WIhOoC16n5GMylXWdwcjEiEk
JHLCnvEzGjreeBvRnwSPHdzpVh+ScKdM4ubpmwxE3Iy8seMIpo6rzRbop4Kn
tN7Epj0BvYiED9Vf0+Di7fMEvSwOS0Zl3sxWBvwxWGB08lQMSsty9+7lZcB0
pUv3aEkU5mUG//Z9DBPYq1ccXpwUiQ/bLLyO2rBAelu1zTghHJvtaQ4VS9jA
0NpCm0g/iNkV9t2TUxwYHR4y01oXjBGu10fT+7lwT720Z8g2EAN37SPlXTzw
Vo3N7hLvQdrCzGCz2iwYEVb/6lvkjsbN93mKQj70weAL2+0/oabOOY/TWQKQ
tgyP3dJehxL9T66rooSw5cDJ/N5EGqy/9kh+OpiESm8tSSWTABtfA6MblNPM
xr4hiwDLT4F+PZRdJv7y6GMTsHzrszadEBIeFuQN0fgE6HTKK7Iov3qsZ7g3
l4DxsbGUI/tJMAoxZNPKCBDbqmvAQRKE0RbeQbcJKO92h1DKexzUziS0EHAx
NSeTSdlIY2SYc4eA0ibt8XrK4oorHPGfBOR4GTyyDiVBOmZTNy8jIC7R/KzB
IRI+Jm8yEcsJiNKN7N1IWbpDP7ZlgIDwuks6PpSFBpN1va8ICJ6x5IooG16v
3z0/QoB7rl30LGXrL468wH8J2LGBfs4kjISBB0Zd8R8IcOmRPHWkfPWM0oQz
SYCD6Q+eKZSdnZvqr34mYHNLOr+Asqp22YIWJQHrDzdIr1GWPWf59M5Q/TSU
U+2US6pCz76ZpfpVOm0YpRzOdnk9N0/Af8PNark=
          "]]}}},
      AspectRatio->1,
      Axes->True,
      ImageSize->180,
      PlotRange->{{-716.7545562907912, 
       716.7545562907912}, {-716.7545562907912, 716.7545562907912}},
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]}], "56.43875303035491`", "53.60970455332655`", 
     "35.55121210837148`", "715.9879122908927`", "716.7545562907912`", 
     "64.69519852294277`"},
    {
     GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxdV3s4lVn7ptFBGiV2UVL9KnzOhaSTp6iQ89kOkTNbbJu9N3Iu59hKOTQl
hxpT2mQqfYoWTWqMNGWoVHRQUYOSIpU+v3etd19X/ONa+33Xu57nfu77fp61
fE+one80MTExY3Exsf//73LIMGjZ1zBouj4eOv+TFfKdtTTRWp0NccPLWWrH
LdDCo2riz9ls0H3V6uK3yAyZ/XlcJqCODRcCVTSn25mgy6flLRl/sWH0U/Bx
tqwxKjE4krz+ORtuhzj/t/8GoHLP/VkxjHCYn+qhkbRjLbIYHDbdpRQOPdT7
uij5npzXsFo4ZOX2Zryeq4k6bDztbq4LBwuL5hrdMoZoLUb9mW6i1/WW1HNI
IvsDDlH7YSf5vtEo9X0oI+d74fOBjq8ZxwcXSfwq1PvGsI3kJxlE5QcMkr89
zh+8CD5CjA84Efy6MX6gw28I/Ol8GJjmap5ivLGBksuROQ3hYdAzZqrnscgO
3s6cIX1TJwwWU+fZw5BMwzP+2VD4YmC2fE2wA8Sx7xQXfN8LNTaVC/f6OsL5
GW8V9cz3gvHSiYn9IU4gXpUyj/tTCHSPNEtYPXCGX6g4WFCgUrsox8gF3l78
P3WFbSww2nsjJSzNBUI8vBWLJYLBuKW8VZblCnWciHVX1weBS5WYC+uZK1ju
OJ6v5RQIiPqdCdfWt+gsYwRCZcJtt2FbJnz3u3SGNx4AjtLGy+67MOEBda4/
SEoLj70+yIQT91xvPbzrB5rCHR+2CJjQ8dTzj4B4P+hVPHxAPoMJnyIV7vZE
+kJ22pZHOz2Y4Nb7gDU4x1d03pNa5TRxHx+Yz648OvurK7hy7ip8necD/gO5
3/a0uwKDwskbHJ69WBOs5wqPIpzDZvt6ifJ/9SfveVifJ/BtHWQ5gc6gS+Hv
CSt0/G9e0HaGQUa5qVTxbvBbNBhlx3CCktj6uepPPKAnUN3LssARNnwOmasg
9ICvVJyOsFxXs/yXZHeI05cuDMlxgFIKXzcwubPydOwNe1A2Dby+bbMb5Jes
3O4Ubg8FuSXZ17t3iepJ5zW88NB9CydbWCYne158wBUe3l/6vn7CBpKfq73W
rXYFQypOG2D8lRAv98wFpptIdkfZWMNdRfG/m7VcIG/r0WmK5pZgHswZ+mvE
WcS3tb/PC/jQ7wwTkdmneqIsRDgIWPKXtQwsoIWpeDOqwlHE51llRTX89w5Q
uHnJq2bhZkjRftwQdtgBhh5orNgrawhd/a8+Dpk5iPTSK/xPzM/yDrBG542F
xDQtSFfoYC7ssIfN1ivP1erNgldl9T5GrfYiPaaR56oW1HP0jOxP06b2ow7y
fVrv8eT8MHw+mkbis8LxIUTip/0kaN1RF66xE/SE3v64bNN2ROd7DOeLNAge
zzEeaD3Bi/avxTGMPaHgAmMTDcohIZao85pOrseQK0hpTJPx+mqD6Hq9x/VC
8aSeP+F6otoqlbWqW9xg0NCvnRNqj6bwASkS/vRi/qA8wq9/ML+QxgLMvyzM
P0TzM3O8YtBJ2Rl1E/6GYf6iRsLvZpwnovlvj/mPWGioxYPvA492L5KxaXdF
tL64rDyemgkTmdXPUhu/7Aes5FOXkjyYiNZrtvIS/XeRTHQ4ih+uqRAIjP4G
QfBiJqL9oGBuXPDVP13R4cU8v2ufgoBn0urpYOOKaH85iv0FLSD+Q8d3mfiT
IfYnRPvXeexf6BPxt3fY39B74n80vuXEH9uxPyLaP82wf6Kp/enblsQ1MdLZ
Ip/16GMffTJ4EB72Vmd8eR8Gs2vGDni1HYTAJcNtV/XY8HVjt+B8UxbMp87j
QHyn+O4dwix40qCefFafA4VUfpPPVXV7Kqw44C9ce4ujnQUR8Vtfdg9yIDtS
drHXt0zoifmqZbk2AlR1d9p9CM6ELQqjNeF9EeDHDOuUh0wI/cP7oZpSJJwJ
+r5rw78ZMELVJRJqKXwzILu2xvPKKi7wLCZWLy9PB+fTXaMLz3Lh5/1bM/84
ng6mjrHqd6q4sP3CcaUDkunQ3j7W2yfPg2XlsVsWoDRI/yfFPGwbD54eEev+
+ioVUI293bs6HnRQdUiFskF5JacmHqhVFo6o3EmFBG9Wr3gzD0ImTH2yS1Kh
k3qPB4pHHvFqjFJBOHBv/NdvPChVYd9ntaSA/cNbTz4r8cFH/92bBb+mwL2P
UZIS/+HDROBpmSPRKVCayay1Xc0H+Z+52uXVB2DpioTGTks+fKDyPACrlx/n
rbLhw90Njn1o3QFQCLTuzLTjw3T5dfxN+/ZP+vz5FN4OPiRd2lpbYbIfgkdX
HMndwod/C7129Mrth2la6b2dBny4l/Sycs7KZHCZU7di/2ceyFB1SwbmBmHR
/Q88GK47vLJqZjLIhfA+3RviwesvNbkXW5NE+bnkJ8zrjE4CdSnnyvGLPPjD
/8Jw0NwkOJiXpjwQy4OTVP9PBOcNTekufjzIFjP/vCcnEWpSdN6dWMOD68XF
gSHKiSA8JTE9eoALYnc2ihfdSABfChcuaFO8S4C3Rwc8bfK5YF2m1mVjkQC/
L93yzsSIC/8YnovJkIoHi82jlXcTI2EfpYc4uP7x4cmWmEhY22/y8LcvcbB+
oiy/LSoSvE+ZGY2PxIn48rRD5Yp1TCwID8km1eVHQBHFz32w+kpauZVYBEh7
zhmxnrcPTqQnMixOciCa+6Zxu3uMiN+XKb5Fg1PzvNSTS8Phs0VX0O7oKBg6
4WLgOTnHdMQUnmxq5Iv0c6nqesVeaz7Y1DfeeG4YJsLRfOzM67jAUEgJjN7Q
c5YnmkvGqoSbHhhO4rzPbpzRFQKlZ+tn/beBK5pDaJy6PklKSO1igVRMmNFv
BlzY28fJyVcIBrdid4PBoUjRHELnLYi+Ys07FwCz09NZdVaRcK7t1e0C5QDQ
9hmWOGsYKZo7tAdL0nM+RIDVy/uR59r9YLWq/l/KsZM4HdL77YWELyRT/IoA
743bxblyPrC8lFu/VypCNEfceb0zLfoGB4oYlTd3V3lBXWLAvpnrOGCyRK4v
UdsdyqTaN63T4Ij6Po1rStGnsAaNXaBlxx5QFYbDmQwn97wKB0Azzt3OORIu
6v89mbWterxwsDEvYsaV2sDtVZYLSq0n14l7OgdWm4EgSzv0l43hov7svtu4
K27V5HzLsZpVu8MAEqR3jX+cnF+L5y/ZE5GjJVrT/TaerN/LUM+RG9mfF07t
Rznk+3T/bCXnr8Lno24Snz6OD10j8dN+TOd3BOeH6Pwzcf6ohOCTgfFBtQS/
pRg/1EbwPYTxRUoEf0mMP5pSH6RN6ncI1w+pkvrq4voidVL/Vlx/NJPw4xTm
B6L547ew8EVzWQBi2+s91b/JBQHmI/pI+GqH+Ypofq84utZgoVMo+pvoQQ3r
AY0SvbzFekFT9IQaUoeTz9RFw4wXA7bJh8MRh+hvDsYJSRF9HsP6RFP0ix4T
fVdifSMpql/FwttfxzTcWiOQ7cvSJM6kHwzivJAu8QsD7BeI9pMm7CfoKfEb
O+w3yJL40XnsR2iKX6GxNuxnu7FOUSPxu0rsd+gw8cOL2A/RFL9ETcRPs7Cf
oil+ix4QP/4b44zeEb+WxX6NaD+veFmUmTzCQ53E712x36M3pB+I436A6H6R
lWz3ea4RH0n+2E9QG+k3i3C/QVP6EVr0Y79CX0g/K8P9DNH9bptcNkNehY9O
kX5oh/shelbRWpVWmCrKR/PH/oro/luVdF2pqZGH/M2vJsj0pcI5s8dzbl7m
Ibqf2y9gxPfI8tCg//OIkBPpYPSkNLa6mIumzAeomswPdP0DyHwRgucLRM8f
V9wzlsf+G4G6ep7uTBnOhFisKyQg88pjPK8gdzLPJON5BtHzjs5F080RNhyU
QOahLjwPIbFNeF6i+TxlnkKzfPQcxoYOgvJj/RmrR8LQdzKP0fqJpviZDZLM
t/OK3rBQiLeRgsqsHHCve2brc42FOHGCC3Okc0T6rPvQNvuB8uS6fwXSEGOh
zXmck0/ackR6z6ssqigYzoHwFwWI3eOHHtfZIBMZAbzBcy+KlG9/7C8vgJFH
/UYHv/mgSwpzv/mpC0BO3KI46Kw3ytpjWf1OVyDyn4ljVxiS2wVwrUul0/+0
F9Kdt1JjyEkABrUF1Xe2eqJ+H+/GrUECkb+1GN4yGY0WTPKzQTFgoyvquCA9
fUmiQDT/5m/bNb8sQwBuy4pleVGOKNVQueby5Np9tnFmKccRbU8wjNl1SCDy
10Arocm+fAFcZQZafI+2RelHPF5c/EUAM3corXukbI1KNFSrvxQLRPeX1H+y
R2aUCqAmVrP5WL056vTe6R5XIYBbiW3qsitNkBRnoJH9m0Dk9/WjhYlzzghg
qO9RQZ7eVpQ75PtlQiiAliXZugfzdFHv2pbvSlUC0X3MOmXnbp3JNSu+Sqzq
xBqkSdVRgPtNwvpNP6wn+88Pa0/bTfT+JrwfhKqdb+Qn1/R9kj5fX4k6H+j4
FvdT8QEdP90P6fwmcH5A5/8E5w80PvR9OI3gBxg/CCD4/o3xBRp/uj+nkPqw
cX2Art8+XD+g60vfM+n6s3D9wc9cNleSJRDNB7a3TMsu+gjAW8m62UnCA2g+
GWE+wTfCt3bMN8gkfKTnEZqvipivQPP5A+YzPCJ8p+95h4keorEeYCPRCz0f
6ej+PgbJOVD9xTFg6FUgsA5sjpDXyoGOUt9F6i+CgU30R89rLKJPH6xPoPU7
G+sXpt63/gcgK3Gc
        "], {{}, {}, 
         {Hue[0.67, 0.6, 0.6], 
          TagBox[
           
           TooltipBox[
            LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
             17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 
             33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 
             49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 
             65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 
             81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 
             97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107}],
            "True"],
           Annotation[#, True, "Tooltip"]& ]}, 
         {Hue[0.9060679774997897, 0.6, 0.6], 
          TagBox[
           
           TooltipBox[
            LineBox[{108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 
             119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 
             132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 
             145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 
             158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 
             171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 
             184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 
             197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 
             210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 
             223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 
             236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 
             249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 
             262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 
             275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 
             288, 289, 290, 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, 
             301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 311, 312, 313, 
             314, 315, 316, 317, 318, 319, 320, 321, 322, 323}],
            "True"],
           Annotation[#, True, "Tooltip"]& ]}}], 
       PointBox[{290, 20}], {{}, {}, 
        {Hue[0.67, 0.6, 0.6], 
         LineBox[{{-1068.2532894667518`, 20.}, {-1047.2849285156246`, 
          20.}, {-1026.3165675644975`, 20.}, {-980.8523554550985, 
          20.}, {-938.4009796675482, 20.}, {-896.782331358849, 
          20.}, {-851.636192843005, 20.}, {-809.5028906490097, 
          20.}, {-763.8420982478699, 20.}, {-719.0140333255811, 
          20.}, {-677.198804725141, 20.}, {-631.8560859175561, 
          20.}, {-589.5262034318201, 20.}, {-548.029048424935, 
          20.}, {-503.00440321090525`, 20.}, {-460.9925943187243, 
          20.}, {-415.4532952193986, 20.}, {-370.7467235989239, 
          20.}, {-329.05298830029795`, 20.}, {-283.8317627945273, 
          20.}, {-241.62337361060548`, 20.}, {-195.88749421953898`, 
          20.}, {-150.98434230732343`, 20.}, {-109.09402671695665`, 
          20.}, {-63.67622091944519, 20.}, {-21.27125144378251, 20.}, {
          20.300990553029216`, 20.}, {65.40072275698562, 20.}, {
          107.48761863909324`, 20.}, {153.10200472834552`, 20.}, {
          197.88366333874686`, 20.}, {239.65248562729943`, 20.}, {
          284.94879812299666`, 20.}, {327.23227429684516`, 20.}, {
          368.6830229918427, 20.}, {413.6612618939849, 20.}, {
          455.6266644742783, 20.}, {501.1195572617164, 20.}, {
          543.5996137273057, 20.}, {585.246942714044, 20.}, {630.421761907927,
           20.}, {672.5837447799612, 20.}, {718.2732178591402, 20.}, {
          763.1299634594682, 20.}, {804.9738727379473, 20.}, {
          850.3452722235712, 20.}, {892.7038353873464, 20.}, {
          934.2296710722707, 20.}, {979.2829969643395, 20.}, {
          1021.3234865345596`, 20.}, {1066.8914663119242`, 20.}, {
          1067.572377889338, 20.}, {1068.2532894667518`, 20.}}]}}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx308FHYAx3HJJlljimWoFJFI5SkPuS/JUhdLFOmoHCElTxEnzj11OdGL
HIYUeapVIq1CtCito5W0Nla7VC53Hnpwh0777Y/P6/N6G++L8Q1TVVFR8Sb9
/22cs6HW/ROu/I3R6a2zxlz1Qk6Puyl6KUfYFh+6aCLKE6G94wLFIKWDu1rK
pw1Q1tiq05Tyj5RhXsNQJE1G2ZM5OjIuV0P6nE9vAmlKSnLtKwepfAG67uu+
2UabB7UW2m6J3AQj5lWvt9KM8KCzeOSt3BazAg+93kKzglaialnt840YOuin
GV/kirnvK1I8nX+CbnWQneEtT7yutIrTifGHvLzyFys1b8RK/y65PT8IldSk
ktpPvvBfI+mZZbkHrCui+Jvnd+BB00RU/tehKMqr9HtauQvSG/KVvU/CcMr5
XtGPp4JB7zUMfHE4AmfOb1UYGO2FnWPv4iDPA9CRJZnr64di97XLvueGDyJk
KGWv/wc6hDtv+//udhiGnRXU9XfDcWlytFtZG4ukVwKXuuYIxFSvndGdisPF
Rm+7HXlRoKW4poSHJyCt49Fa3qloGH/jwZ/3MBGtvyaLQ7mHkFsb5F2snwTZ
ZYbotuVhrIx22RPCSobXMiNLbYtYxDlZm899ehR5Yyu0MvTiMGg17CJzT0Xd
QEHCVb14WL0sH1xex8DkLb0GJ50ELC2LcPecTIPDR9Uj4s8JcGdOSkvp6XCj
+tyiTidCfV13lSwoA04z6py+oSP482RJuYMqEwfOPjFr+iMJlOSettImJiLp
X6gB3clg7NdsngjOxA6mcEL/5lH4SC4MHNBlQbs1Z2nZjRRkb+7aJLjPgqq0
2Cy5MRXl9aMnz8Sw8W+8Tn1sGQObL6RMd5twkGPwrtmqJA1ddd9uGBdxYGG0
aqsG/xga+It7W+O5UGpxmpxi02EznZ9VY8aDz3eLtgntM8CPm7+I08NDwT1r
DeOLGUhkTPSlcY7jbnasqmAlEw4CcVSkNR+SDEkL9xwT9NQtm1T6+KiTvguz
/D4TZsqF1IYTJ+AbYejTcDoTbexRi0CbLIxrs6e6NFkYLbNYbfAuC0ldBm/b
s1jgF4qPHS8VoGjKpY2uwcaksKJmyCMbVwPyg4TH2PiyoktBnyLuNFh3QcnG
X+3yZb0VJ1Gz93mfdwIHSxwrCke8cuCUuGRf6RAHSvcGG9OZHDQWCleJwrkI
WPHGz2x7LkwlHi2Cfi4YUybLNl/KBcNrabbVbh482OZz/IlX2Ui6XYg1v7WU
hRC/MLyiTSUuNra5nki8YWx9fhTx9U1uW84SzxUG/lxN/L6AFq8gLhzMrTWm
8RBhU/Bb1eVcNKZ/6dAN5mF1S1FNPfH+yE51U2K5Z2l2M/HC7dletsTcXZU7
HxMzlhuIfIkrmFeHlcTuIvveHOJ/errn+1/JxaMfDok1QnioCnysCCFmqdmZ
6BMffPV0IIrYdmQ6zJz480R/dQZxYTtf4kmsv2jY+SJxcMT5MRbxy+qRJdeJ
tX2j1+YR16x5/9Ud4jvONgnniO03TvY8IzbVape3Ec90f24UEz9T8BwfEXcE
qBTLiPli79QXxALx7HQFsdND3ZYRYr9odfrs+lzIrvXPKIn/A0NMWuw=
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx308E3gcwHHJneSKU1wORRHJUs1DHsqP5FKLSxRpVEZIyVPExOypZbJe
ZDikyFNd5SGuwr66qHVtulq67ri6pbJsQw82NPW7Pz6vz+ttdTAxKFpbS0sr
APf/dzIvRDkOTm7ibEnI6Z4z3m0SeW7CWy3xOs6w/yAkiwRP+C5ui9XDXr2s
tXIOeUiwzkmXrFF99Bplt47EkRWC/XljygmVDsqZ9+lNGFkjyGh85SpXLUbC
+8ZvdpIXgE4XeZ9MZY2UdnWvd5At4EFfufKtygnNCTv6ejuZAAZp2lWNz7eg
kSPB+illm2D++5pMP4+fkXF9uLP5bT94XUtINkoMQarq2l8JOgGQJP+nQrAo
HNWS0isaPwVByDpZ/xyH/Yh+XZRy69JueNA+GV/8bRQqK6oNflq7F+Q3Vasl
T6LRWY97ZT+djQCKxDzsxbFYdP7SDrWZxQFwdpMsC/c7jIwU6XamplGw78a1
oIujR1DkSOaBkA8U4O8RhPzhfQyZ99WQNt6NgatTY2JNYxJKf8X1bOqMhcT6
9bPG08noSluA8+6ieCBnbsqMiUlF2b2P1rPPJoDVd76cBQ/TUPdvGdIo1lHg
NYYHlJumI8U1qkjgcAxWJ3juj6RnIP8VFg6G9kmQ7O5oN//pCVQ0vsog1yQZ
hgmjngqfLNQ0VJLaYpIChJfVwyubqGjqtkmru1EqLK+K9fGbykauH7WPSz+n
gg9tSl5JyUHepMDbpJk00N0grlOE5yL3WV3mwMhx+OtMRbWrNg0dvvDEtv3P
dPDK6IfKdhqKo3whhYozgHpIv3MyIg/tpvEnTW+dgEDZ5aHDxnRk2F24vOpm
JhRsE27l3qcjbXm5bUZbFlQ3j505n8hA/6UYNSdVUWHb5cwZsTUTFZq96yRU
ZIOwaeHmCRET2Vus2aHHOQmtnGWS7hQW0hgw292TcoA4U5zfYMtGgd8v3cl3
yQVO8qKlzH42KrnnqGd1JRfSqJMD2cxT6G5BkjZ3NQ1cudL4OEcOkuXKulgX
aUDJ2r5Va4CDmuTvoh1+yANbzRJS6+nTKCjWPLD1XB4AY8w+jJiPJgwZ00J9
OoxV2a81e5eP0oVmb3vy6cAplZ48VclFZdOeQNFjwBS/pmHEtwC1hBaH808y
4MsqoZoyjd1ntuGyhgF/96hWSGrOoIYDzwcCUplg6VZTqvQvRO5plgcrR5ig
8Wkl2swWorZS/hpRDAtCV70Jtt3FQzYy3y7uIAuo09Yrtl3lIar/8gLCPjb4
MuzmhWCvIcrEntj6Cx0UkdgvzK8bkrDLrYgdadibxzcWx2N3bPXefgF7Pj/s
l3rs9yXkFDV26TCv0YrMhlhiye9113ioLedLr3EEG9Z2lTU0Yx+K69O1wVb5
VRZ0Yi/ZVeDvhM3aW7vnMTZ1pZkoCLuG1jKqwfYRuUgKsf/tFy8Kuc5Dj348
KtWLZENd2GN1JDZdx9naFPvIq6dD8dhOyploO+zPk4P1udilPRyZH7bp0lGP
K9gRsZfG6dgv65WWHdiGQQnri7Ab1r3/5g72HQ9i6kVsly1T/c+wbQx6VIA9
K/7cJsV+pma7PcLuDdUqV2BzpAFZL7C50rk5amz3h8ZdSuzgBF3K3GYeUtwY
nNVgfwVHzoHs
          "]]}}, 
       {RGBColor[1, 0, 0], PointBox[{80.99773040491203, 20}], 
        PointBox[{1067.7393616113022`, 20}]}, {
        PointBox[{79.10108715246825, 0}], PointBox[{291.8966432524437, 0}], 
        PointBox[{1068.2533330689287`, 0}], 
        PointBox[{289.4860285423736, 0}]}, {
        PointBox[{124.47160683287416`, 87.15595739745369}], 
        PointBox[{124.47160683287416`, -87.15595739745369}], 
        PointBox[{455.52839316712493`, 318.9644147641773}], 
        PointBox[{455.52839316712493`, -318.9644147641773}]}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Hk0FHgAB3DGytGhpnY6SdHBdokoqb68ithGa2cS1WQyLJNjGlfCYNzG
MOO+dtueR0pL9KIs69itl8iUiqaRlE07RkjpcGR//fF93/f55/vnd83pQBcv
ipqaGp3kWw+Ur12n2MdAWaepLkXNAn62Uh2bnxlYoqChKcwCH+Szb4u9GYh4
QwmNHLXAd3Of17LEDDiqKV5+7NsBY/88h1fPGFCaiW6pGq3AMZvnpwxhYl2O
yudJxG78e2ui5lPFUcg2d3s+jrDF4L27WLLMDfQPua2XPjkgoGNlzIVjLHRs
6j55P5+B0D/KorR/Z2OMlXnRaNMJOBg8nOVpcdAQ6JZR18FG79eHWZQSb1DL
Ok+MPfKCal3rAS2qLzYU94pdc33R2JCss+PGGbgky+7/dNkfa2f6pdQfA9B9
2JpZ8pgHdbslxWbHeeBYuU1Y1PDhssfoXMCVs5gqGlq18GYwXipMBjgDfAR5
OIQKi0Kxyzl8mzktGMKds/r8kHPgT16fQ/MMQZFo4+GKsPNQOgyeqSkIRfZe
g8oI10jYyjTcPYfCkOeXmJtzSoDTplzTYYtwLO8p8aZtjUHLxrspW3zPo/vS
UOFm/Vion1rET6iLwPLaoUzf1UJE73RR5oxGwunDA6OzC+PQd0igrLcVQIPH
O/fr9/GYs+19e504GokhNsHatATU9lYZ1LFj8OXKiPY+zUS4NSqKinVi8U7f
nV2onYSiwLh+Vlks5M0VLi2TSbBLc6bNhxDityaq9f8lQ75fKrk9KMQdV7Z9
tTIFejJ6l7swDqPvBDZaz1JhORF7bNI0HsVtzInYPhFaE+SyhAfxoP3gxtzd
l4bhN1cXjHATENNgR2/uEENrcELqQU3EWdFrXa4sHS036nurKhNxJDXA40Vz
Bl6MlixT2SchSiezsu2oBCO3KQXbRpKQ7de2wLJHgmL/5/0uKckofRO0W9tZ
Cuvqzf7RZikIU59qG34gRdidL83JnSmwM58wtnLMxPKDQ5oCn1SMX054ZNiS
iQr2kYwoPRG8msYHVtlloZe+vd+tQgTZcFezoD4LX3tSQsBIw/TNjNlxm2zE
t2tOUyfToHfvlXROYzYuS2YOtWaLsfJ9+Vi0RQ6a3nF7I2zSoax3qp5bm4Ng
Y4YlVZ6OqkL23pktuRC3sGOz+Rk43jR/dXppLpyi+MmSeRLcFeayzdbn4QJl
3PyAuwRbWJk869/yoGJeVY+ulID5lPuSaZiPr1FWi1OID5jqBXoRU8tajbOI
LSOvTwcTW398an+JeJnh9NJs4tRczXQZseIXMb2L2LSHtcKwSgLPT1V/0tfk
g3tskXkLcRBtIsd+bT4EMcX724k5PgVGrsSZ5RuOPiFm1u+p9iau/7wnXEls
xUrsSCDWLeA2LbomwVTpUo1/iK/I/3Y6TSzcYc2DUT7+Unc+6UcclNQ340zc
ZfIsIJSYIxeKThFPho9JU4kPRrWXCYgdV+g/rSHWvX3ieQMxy65c2fBtn6Z+
poOYzzWfukM87FP6WUFcWH/IQEHcOW9k8RRx5avHW18TN5E/0DXOR6uuh+0o
8bVrlltXEHdvV7l8Ib5IUTSYECvdQzka1RJIGNGOu4j/B/Z5URI=
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx3881HccwHE/Kik5LvVoqusHsliNrjUrtTf6hY3SJa5N0SXOOTKnjhyH
0x2H71EKJ9Iet4qYfrCpeJ8eWo8oaoXzK8uPdoQaKjdln/3xerwez1VBET5H
DfT09LxI/7/v8mqbzm9ZYFHWUjs9wwSei8LYeR8LoGGFcgSYMKGZGVEGs0DQ
wxf2iDfArPndVQEZLOg1W7ARDR3BOvzc7pcdLOAOZ/sY0b4AjqMJTyvYD7Wi
FNtFjJXQ//vk9felvhDCDaxxptFw8OEDsFjiD7/NCR1pvLcF+U1LE4v8AuBC
cRzHqG8fxlxTxc8tDoRtfv2x8VOHcDfjyUykEQfSTqpNirVHsevTkxyDS8FA
32YZRz/Aw2Gb+h1G9FCYOjC/l21/HO/ekRp/dSsMhN+b0gVh0bj6Y6+C/h0f
dt5mBAcpT6C+q4XS8WAkwEyiTUhuLPpstTrJv3ocHswci65qice/Otf2cfqi
4NuwPedMuYn4jbfQgbk4Guqyf5LY94sxSndjzuIjApAu8b/NEyWjdvdg2PW8
GAiWvVqz+WMKujQbso8MnQC5n1OHvTIVg+y4dq83CqG9L4txmilF9ecPZOtD
Y2ELmzrPr5Ch/iHzKEl1HAys38eO9UzHBCcf7dmxU6Aard1Lb5Jjj7tIW+Mi
gnKTEeoxLxPnOIw3VmckAH+cctAZUFjVVcGoDkwEs9YE5p9qCv3vdhYojcXQ
+sqbXUspsCAiuTdAJYY1ERMFY3uz0VXuvXgBJEE6a5lqPy0HNdsVVMNgEiwM
tXn2qCsHac1eT9lJybBm3GC5XHkGN02K/XR2KXCwTC37gXcW6yWaZklLCqju
GdYFOuXi61dlpqNcCcTtsaRde5eLRoOTisP0VBCY0JPnNZxD9a2aroryVNBt
7TEvl5zHF2OXlgzvOg3Uo3Whqa55ONpgkOcweho85AH9kbR8VIZ39/rIpKDA
I7EXH+fj5sp14QmOMtBZeWzsLyzAE/enUPpYBm+mZxmHH1LiZzuHZotC0uAD
001lt7wQSwP3ZMXT0sE6P+iYbqgQu7w29PqXpoNG4OtmVnoBP7XJBMCSw81E
ezenuCJMaZw9TdfJ4cmEWvLQqhivUB/d689kgCnH7/3S5GKse8vtinPOhG7u
i9iYoWKMtmZtomsyIbKsZf6Ex0XMUAeKz0RlgWmhob78ykX0jI+SUiYUONvY
zl1nVoJFBv8wd7ApcPz75rK3ESU4vL9MP6GcgmpXplttWwl+iv96oYw4mWou
fUhMV9Vb5xDv7QmzaCPe/K591y/Er4U/D4wRp+XOzmwmtqpcJF3VXoJ2bQGW
KysoyFrxoSmFmOtnzlQTh07f8fXUlKAoUbm9kXiTh3/dAeLsy7a+z4lnnZ+0
5RDXfNgq1BIXMddPnSKel8etM/+VglZuUUE58VXNPc8gYleNuNe8owRr9b1/
5BGb2TLcGcRP13bwY4i7o2sq7Yh1wjeKNGKh2XiSG7GH5fL268QVuzg2AuIA
18vaO8TxZ/UyxcRRXOa/94k9+pTvMojza9wZncQDoud/qIjLXz77coD4RtNx
hxvE9fMOu4wRiy1N8+qIWzcM+0wRe4Vc1W8i1rJjOIaVFFhW7eS2E/8HJ6F6
rw==
          "]]}}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0nk81Hkcx/FJWzmyqbUqitXK9dhV9vFzlOQjhazNMY5dk5IcSc5GjhVm
pjHMmPGbaR5jFHpM0YGGmVU9otbXuTO5unisItSENJIWNYva3/7xfrwez//f
5pFJgdFaJBLpELH/W2cYcGSlDEdD+q1O5DIcHEufsKOkOHpoaC3Ru4jDn1tD
7nTU4KjDhKfbXopDtyXFoOAqjupswoaxEhwmnaNb15bhiH7gA91IgMN34ZmW
RiwcWZ3d1jvIwkFQJXlnHY4jqpoeFXEahzTHDzmHdHC0tsuDn+CDg76BZ93S
VR4yd1d2e78qhvk4kV0amYtMFUlvslyLYUL+WiZaXYQkZW2V0xd4kEwJqqKV
s1GXJDi0dIoL9xtlMUzfQjRJ983W8eSCJNNOHDjCQlIhTSw/XwTFVtU9iox8
pPnnOLlMxYF9RYaPQm2ZyGlHTZ6POwc4/hX765sZyPTizip7nA2lXUb55gl0
9PGl8Z7hqUKQOfC6XMxpKCRDnqL0LgT0+aCWW2ouOrK3oOKduACufQnScX6c
jX4bbXX9e44FTc0V79s0mWhJ7vL0330sUIWPj0js0tH3T47pHBHmgyhOL152
noqgT13PnGVCGpY0QEYpSGvplt84MKFxMKLJb3ciavxKFaFXdg5Uigj2VsYJ
tGmvf1zcGwY4Uw/HFY9HouX2OAPt3Qxwmd9OUgZRUL/VpE28iA5pyybhZ+f9
UHBT5e41r2mQrpHav2U6IKVt5/1YNxrUWi4NrNTFoGVCOKJdngek/neO9t7+
0FbtMdsxmAv2U9e1TXrCQO1qpb2SnwMhKxpqhzYfh6ifWPryH87CyUcbO1jy
EzDR4u7/svd3ONWJqvqmEiBApzP9YkEWsE0XXn5SpoCuvJPbaZkJwafsQn9N
pELtBn5B1lA66A2daItelQ6hX99GdeIzICyK8ht9mgmB8aETIbvSQNhHd7Oh
ZoNDXuuH/NnTEEuO9Bv5ORdiF26orXmpMIjJx2SaPKBZULrI+1Jgzr9hY5cn
HXye9/R+0SRBhn7JsHE9A+x3vnjl4pwAzt9w+gNWMGFyjtZaWHUSjt09Gt6c
mA+u2aY5Tc9jIS/ZYYzRz4Kru5IbZkyj4VnylpIdFoUwGhPc4MCPhIr1qqH1
xWxIvhmzrVl8FMoX7wU9H+NAy6mDSY4JYSBYECkWf+TCLrFIJqcEw3t+QHeg
iAej/GrK9B0/YJ/ZqsUfLwa2PC3rHvUA/LWsekW/gYN/k5exYzUGbI6wVky4
xO60F/caBr6b96dJCS9LKqiqSgweYldWPyOsKJjvFVzC4Fn8MRv7ahzMQ64w
ZoQYqAeHE0cIG8x+Vl/PxcDg9oDGpRaHGcvbzSbBGDz2yG8NIBx0YUydGoiB
8JEDJ5Zwo76+8QM/DDZPC7ecJxwzd5ya4YPBNguy2xThFy3rbfrdMHAQ9J0T
38RBejhBwLPF4JNZ7i9SwvN94ubXVhg03rQzaicc5tGu3rMdg71K7rUZwpa2
Jl5vzTDwJvk+8JTikPNRsej1LQa6vEXBYcKqk3PWlzZg0G1SQ0kl7PPCLGRh
HQYBTrrT5YQX2s/UVxI/Ney4e+sPwq7Ol4cX12AwEBiXoyR8uaZHl7wKA/Ho
Jq8RwtpmGqdqLQzCEhXr5gknCiyiV5Aw+A8VNWMD
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzns803scx/GhVBMlnVToREo4kX6245FOvsdxKqnkUpRESiw17FguiRkb
trHflrNUrNtDRcgotZXj0xzFoVxqHhFRreVQLjEnoc6vP96P9+P538syLNo3
XJdEIu0i9v1vLfY5qCfDwXVvh1poJwbquWe8I+U4ONW1J5rbiuEvi71362/i
YLu+xajYRgzNa4IWZl3DYSm5wUVpLYZ+l3Dl/AIctDVywfgKMawMTlyzJBOH
W6sLnfeZiEFcdHlobTAO1trDGVbTImBSP6XsmoeDUd7oqjtPRGC4cMut6Wu5
EDGXMUimiUBLkzgw/XJgheAGY76BCN5XvpNJ9AXw609J0++Irpgg/6K0Qh70
68qMRrbjUKOQHeXsyIauNteHXi+FcDnRId+3NxOGyH3MpcZCENqUPGlI4MKL
ZIXjn9tzwV2wuC3AjgOphjo0migH+LulHhW16eBosKhK2iCAc01LuJYn2HDe
RphsbygAGSW3ydUyDXqS3b0i9/ABvnrqujFSwdYN7PRzeXD9m/88l/Zk2LCy
JHvqWTbcr5WO1E0mggf94KQPORvUwZreyw7xYK/dRg/0yAIJzSBKdiYOWs9f
DKvmZwLTObrDD2LhdBlEMOu4oOgMve+9kQ79r3Z+4M/lgrohlGeRHglBp4vS
9DZzwCXuAE2oCYMif8zcPj4DXLWrSY3+QVC6fR21pCYdmDNmwae13nC/bDSU
N86G+Mlyp0EOBTIdrQyULmwoXTPdoUd2RrYDWYpiVhqQVENUp227kcpYkfTp
HgucBm7MNXuyHyVVlMetnkmFvTq3S7uXHUZBpik/rKWlwLE20/rMykg0OCwH
XncyHH8ERS0DJ9DY7KfHCo6dAt6KiTefG2OR0cRJakxnIuw57hAQSI9DV1Z9
Jo2FJYBBd2Rd+Ox49Eb5TqUaOwl5giPefc8TEWVTZHNSOBPyWthutnHJSGdM
+fDp6B8Q4Rfm3euVil6lV75QH2RAp3Pla9kkC1F9k4aKNTEwvvu2adMWNmJY
B1tIB+mQYHi2Z3lFOpIGDl863hQFLiZ8lY8OBz2Ys8HqXF8kHJKHBNfSuYgU
JdV43g0HVgzldboqE12Qva1VFIRBV4z5WUfrbOSvqVxnEh0CUmN1t7GQh+Rt
o4fkNvugcOqB/8vXfKRfJRKZefmBeELSMLUuB82qfqSaMvWCEZFPs68kF1mV
WdpddfsFeCctdEUaIVpv+j7wS78pPJ5Rv2UX4yiWFarWc8MQj59Xmk+Y7nnq
6Rx3DO1Y5sEsJ+y5SHLP4HcMtTpf1e8iPHO1SWDihaGuqEO2TiU4KntMpawK
wNCHzh56L+F6I0OuezSGFlZ3TLqW4khbILdJu4ih9t+4Sh/CreHPjTlXMJTX
RuFHEC5xGJ7KKsLQso955mcIs8G6Fb+JIStrP7cBwkZqYcKluxiiiFsy8suI
HvujjbUtGPr8Y+rOcsJbx1lVde0YUpQ5LPmbsGXNhcLHKgxtbsy5Pky4Y1db
bMtLDG0j7fhnSzmOOIxNy3vfY4icOyU+QDjENWDW2wEMNZvdDGIQ3jiLMaT5
iCGfn8kfCwkbS64rh8YwtLhefqeK8IIQZemnCQx1+NJSGgn/a9MjmZjEUH7f
0q29hOtG/mN9mcbQfnrDAi3hQvmiqK/fMPQ/Nb1/IQ==
          "]]}}},
      AspectRatio->1,
      Axes->True,
      ImageSize->180,
      PlotRange->{{-1068.2533330689287`, 
       1068.2533330689287`}, {-1068.2533330689287`, 1068.2533330689287`}},
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]}], "80.99773040491203`", "79.10108715246825`", 
     "32.91728198618298`", "1067.7393616113022`", "1068.2533330689287`", 
     "63.972095757145674`"},
    {
     GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxdV3s41VkXRlJTSrqomVGYkkmaKLpJrS4oCZVLGkrk3nGXkjuH45yDjFvR
5TgnTKXcQ0krU3Sf0UWNblNEhk9UJIXPd/Zvn+/BP5797LN/e693vetd71Jz
9N7uLCMlJbVeWkrqf//5f+faWCRFg9Kp9mlRCXtxz76Ci/Ll0fByn7RgbIID
Xj1dG+yqFAMrhhY0TN5ih19nZV82XRMDj2ztVizOtsXDtWpaTqwYWKhj89hO
0RqnVEuPNy6MgaMW8RtFp81QXnQ71u5+DHyIeHut9IMxGvdUjot+GANLxb83
QnR1WXu7MQZ00uX3LHDfgInz9XyrumOgRKXRdJe9qmQtJf6DK3S9lOwDPT+R
nAf6/Wnk+0Dvf0ruh1HvgxDm/T+S98MAE18ZiQ+Qif8XEj84MPg0EHwggcFP
keAHgyb5q3TMo0HfdKpv9h1HmD/TxrasOwqq98pYsLL2waaaOPtfj0SBivg+
F+DbPwlPN4iCU8a2KpvNXaHjiTXrx85IaKydO2Cp7wbV+Rp3PvpFQolFV+SM
M+6QkFt/ellmBLgN5E8oTfOEv8XviADvDaLbPYWe8L3HVIefI4f337lNWHDD
E/ytjez+UQ2HJU3xB8s0WJDYZJPzyiYMCscaP+NmsyDNSW+XwaRQ2DXQLejT
9IJ61cNJ91pCYNnGzdNbl3tBXnmY1oOdIcAXn/MCD/G9h6H1wtJFA+FeUNPc
HPZyazA4HPX72YE7/Ps3eOSccjB0LmEPXo/zAqOZMj6chwdhi1rAzU87veB7
z4r6H/86KPme3pKWEvncIODWNUed62KB9LzGlWUqQTC/qfjhvmIWqIlxOgAb
53PDzBVY8O6a+t+7tQMk8a9lJ7h/n+IPrzn/5jdN8oRvYvz9QSXk1oYxtzzg
1H4f83nGflAAerqZbHe4UPRITbbRF6qc5MaVf3WD5Ks3vMZW+8JG8TvdwGrb
touHp/iCyRrHDcfvusJTMb4+8K7DynDdvy7QL31+xtXtPvCsd6itje0CfQZp
rcozff6fTyauvk65mdM19sHHLdyuqG4WpLw59D6hzAnauH77QcCCfvE7neDM
kjGfpSr3Q+UMa7PmhY4w+4+egZ4sT+BpmqQYpzhAlfqE3pIMTwnfTuz3tHif
7gnZPet33eY5SHCILnN7EBbvAL0rTVIG/3WT8Nm/y/25hoob+Bfr1NX2bIOz
KtVVE064wtr2D37TwRTSP+wcsrFwldRLLSfCNEHZFYIfFPVlNq+DA+zx9wPr
XMCUq6mk8ocSOBT3ak686iKpR7pvyRPvYx1zPpWcxwzm+7TezzP3u5P7MZB5
Xzh5H/Yz76d6kqNh5lw5zPui59NVt7fZIo03isSLAgaPXIIHXmPwovql8c7+
iPkJTzhhXqyeneqASasmNuV8YsHQx75vHsVOOCpfOMDkU4PkEx9meOlxLH1A
507IWZsoFxzFB0xn+GNK+IOFDL+Q8AvTGf6JCP+Q8tNRcYvy6SseuJ7hbzPh
L3Yz/PYhcSLlvyHhP66tcekoqAqC0LwmRec/WEjrq01bWfXdCi+svzuuZdHi
YIhzq+gdNPVCWq/bKr+WX9zrhXO2Bm6o1A4FC02/+1LNLKR6EHb1Z6PL8Szs
SXLLWzwtHNZY359sKc9Cqi8+RF+Qy+gPfd8VRp/KiT7hKP1CHqNvIqJvaMTo
H8VXndHHP4g+ItXP1UQ/cXR/GhLvi8DhXpKH4z9VBrOfKHRN3yoC3opVv5hw
DaFs74t7X0xFEj5z+2fdeza8NjRbuKoi1whEL8YU/WQsguPszQKeghUEN43N
9zYSSeqFrdD2g7WhCMwF1ffQ1Aba7tcrPDMQQYtRSbPh+90w9U1ZZai+SFKP
v791jS1dLoI1l4yb/5J1BJZbh/IZHRFIjbf90rhiH5hcvMK6tFAk0Ye5QfKT
3/4kgoKrBdD9lxuYPxg74e7wWqmq+lXBEzcQRQVl1s0USer6yulQuXNTRJDo
PGsgT4cFLiEp/3EeEkp0aVWndV17rxDkOc8da+184a3edyu/tQhhO2fNzdI/
/SBO71G290MhpE6pcZnqGQA77g8WRlQLJbpadDt/saBUCL39hcULrx2AA8nS
lrknhXDMjHPXetNBKC9QyduXLpToeEo//86ZYCFYGI2v+zMwGDglWn2DzkJJ
X1BmC4vWrxJCq8uERZ29ofB9a1+D1HdC0Pj50BdvtQhok6sQBPVmS/rW0qdd
PpM/ZsNHZ/cL9YIIpv9lw+uEmbJ/VUbAq3OBeqcdsyV9tSJ0dukui2zYcdO3
yzYzGpzm5MceMciGAKVpISmt0XCiJif9klAAP4njiwVnZ7289nQBWCzV+PBp
RSw0iu8VwJn1uWdfWMXCDvUoTNoqgLWLLXfoKsSBgm6M1jFtAfxgOUnYsDcO
hNbn/XoqToFBa0lbx2IO7PSbo7sq9hQUmzV/UPTiQJyVfYCe+ikGHw4cEdfT
SbB0zXredzIeKnK5eTlnTsDl6KkKsJILwVfuH9ksPAG+TtOPla7hQpiPzNNb
vcchb1r+MpMKLvTb+Sc3ZB8Hp4bE0HvtXKguCmYV5mZBXaqi4WV/HuwX45wF
tjfOKpmE8OBVxebcObws2BbQsi4+ggcZ5Ym6u62zwFP8Ox40bZCZt+BtJpxV
1ShpQx646z7rCLPPBO62UvfAVh7s4toYnNTNBPvYXYVTP/KgTyV4r5p0Jmg/
cK05/40H6/bK2sfMPAa7k4uaz83mwyZxnEdh3PkgsFHlw6Op/UEP+Udhh9yV
/tlz+eBpFyN3tTgDHrPsHpgq8WHZ6Xyhn18GGLZPUAhW4EN7XJ6Jtn4GSC0r
v7RClg9S/kuzf5uXDuqRzkKVKh7MFectHRIz0zYllfFgoHNgSc2YdCiP3GPe
VsiDb59WVnKupkniywzK76x3SIPbbPfQQRYPftt4+FlCcyq4dVU6zV/EY/xe
Khxzfjr4UpEHh7KDt/papMLq6yfTxjdw4fmtYvbYJylwYehUwMRYLsQKrgfK
uKbATjEuXIZ3KdCPzVt2/8QFSxlMKmn8DY793ngjuioegvKsNWR7ksH+onSz
7WsOw99kOHCw/5FDIwdCJ3GVHrcng3p+1uwZTznQNGA85XNrsoQvqVvLPkdP
SoYHhpnIexDH8PMIzAlK0XSYGwe+ezoK+PpH4KN+ZJlZaSzoVvmVfs1LkvCb
8C0R+Bln15l9joGvXV9NbA4lQIrB+LTKRTHguVBZtVbEl9TPzqHCG9EqfFDc
/Hv43htREhzvr2hOsFsYBe+tF63e6siT+FAoCu10eskF2SLtKquNkZBq77+u
x5wrqV+K0yOTokO1LhEQU7Up62JJPCwLD2y7YBsOU/pex1x2iJf4Thr3nZ0T
+7fwQ6BsyN5kbS4H+Fo9VkZdh8Fwv4fpmwSORE9S7Njv61ZzYAyn5LulbsEw
R6Os+27JMC6K3fUPLQ6CrphfcfCipquicFUQeAdG9KzRjpPoW751zrjtr2JB
vuWSj19gAGgjN6dAPxY+RbnBudc+kNMhWC33S6xETymu6XZZNQ3e3tC+fFOY
znE2DMxI0ZnQ4gqyfx67VBXOluj5brXP7Sft2DD5Q8Ni5zVOcHSxlvmTX9jg
blAgF69uD0Z3kloez2JL+kuDVpXurMHhvMweFHh3msCvKst7OL0x4KYsLbPm
/DrJmvoruo4k+0jPp5LzSL9P/RK9/xC5H+n7ZpH34Vjm/bT/0vjGKInjQxp/
Gokfcxl8nhN8UIfBr5/gh+cZfBUIvujD4K9O8Eean2ckP6jC5M+f5A/TmPzK
k/yiEZN/L5J/vMjwI5HwAyl/pG55xypFhmBmQNmbWlsuPCN8xPUj+YqU36cf
35w3VzUKWUw9SG0R1wN+Y+olldQLjqon1IzdHfayPRG4iRbf7EPZuIypv3kE
J/Rj6vMTqU8cVb+YxtT3Q1LfSPpVMqS3twq8FDiouWCi2plhPSC6ykGqF/OJ
XuAoPcFARm9+JXqDVoweZRI9wlF6hfGMnhGd5+KLkXqHQYwe6hM9RKqXR4le
4ig9xVF6izI9RI9ZBGccHKnXSPVcx2WOjvVFHg75jdB77BjZD5D2i4HQb/Up
8nz0GNlP8PHIfoOj+hHCyH6FX0b2M6T9Ll9jXOrfXTx0G9kPsab+srPS1ixJ
PC9H9lek/TciQun1ycM8vGPh4d+VlwUF1ktW6vvykPbzlxbq6QeKuShf4Nsn
LzoBzqn/FE7W4uIof4Bsxj/Q/FN/UUr8BVL/MfH69bRjuhwM3tbWuE1TwPTV
OBzlV9Ca8TPLiZ9B6ne89XtndNvE4ig/hMcZv0T5TP1UIPFTaGCwcO3gsN9y
rf1d+d3xaKR+jNYP9Wv/EL+GSxg/94n4OaR+j9anVuDTSX/KCqHxff/s5Usi
MI7xj7Tef2P85Q7iL5H6TxPiP5H60wziT7GQ8a9fiH/F7Yy/pfpD/W8W8b9I
/bEV8cfovPPaTZsBoUTfqhi/nUb8NlI/Tucd6tfViF9H6ufLiJ9H6vepvu5n
5gE5Mg8gnRc2kXkB6TxB51U6b/SSeQPpPLKHzCNI5xWq93SeySfzDNJ5x4vM
O6hSJPNEang+ovM3nZeEZF5CTvM1tRwzEWwQ7y8bOV9NuXflv6RCi0o=
        "], {{}, {}, 
         {Hue[0.67, 0.6, 0.6], 
          TagBox[
           
           TooltipBox[
            LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
             17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 
             33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 
             49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 
             65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 
             81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 
             97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107}],
            "True"],
           Annotation[#, True, "Tooltip"]& ]}, 
         {Hue[0.9060679774997897, 0.6, 0.6], 
          TagBox[
           
           TooltipBox[
            LineBox[{108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 
             119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 
             132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 
             145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 
             158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 
             171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 
             184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 
             197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 
             210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 
             223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 
             236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 
             249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 
             262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 
             275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 
             288, 289, 290, 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, 
             301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 311, 312, 313, 
             314, 315, 316, 317, 318, 319, 320, 321, 322}],
            "True"],
           Annotation[#, True, "Tooltip"]& ]}}], 
       PointBox[{670, 20}], {{}, {}, 
        {Hue[0.67, 0.6, 0.6], 
         LineBox[{{-2471.5960498831373`, 20.}, {-2423.08197685351, 
          20.}, {-2374.5679038238823`, 20.}, {-2269.378274951565, 
          20.}, {-2171.159384597397, 20.}, {-2074.8671589843084`, 
          20.}, {-1970.4134505581571`, 20.}, {-1872.9304806501555`, 
          20.}, {-1767.2860279290915`, 20.}, {-1663.5682399491063`, 
          20.}, {-1566.8211904872708`, 20.}, {-1461.912658212373, 
          20.}, {-1363.9748644556246`, 20.}, {-1267.9637354399551`, 
          20.}, {-1163.7911236112234`, 20.}, {-1066.5892503006412`, 
          20.}, {-961.2258941769967, 20.}, {-857.7892027944312, 
          20.}, {-761.3232499300152, 20.}, {-656.6958142525368, 
          20.}, {-559.039117093208, 20.}, {-453.22093712081687`, 
          20.}, {-349.32942188950466`, 20.}, {-252.40864517634202`, 
          20.}, {-147.32638565011703`, 20.}, {-49.214864642041604`, 20.}, {
          46.9699916249549, 20.}, {151.31633070501377`, 20.}, {
          248.69193126692304`, 20.}, {354.22901464189465`, 20.}, {
          457.83943327578737`, 20.}, {554.4791133915305, 20.}, {
          659.280276320336, 20.}, {757.110700730992, 20.}, {853.0144604005691,
           20.}, {957.0797028832085, 20.}, {1054.1742068476983`, 20.}, {
          1159.4301936252505`, 20.}, {1257.715441884653, 20.}, {
          1354.0740254029768`, 20.}, {1458.5940917343628`, 20.}, {
          1556.1434195475993`, 20.}, {1661.854230173898, 20.}, {
          1765.638376059118, 20.}, {1862.4517834261883`, 20.}, {
          1967.426673606321, 20.}, {2065.430825268304, 20.}, {
          2161.5083121892085`, 20.}, {2265.7472819231753`, 20.}, {
          2363.0155131389924`, 20.}, {2468.445227167872, 20.}, {
          2470.0206385255046`, 20.}, {2471.5960498831373`, 
          20.}}]}}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx308FHYAx3HOTu6oWemlPI0Q1Qzxwpnc9yLJiZtaFK/iltJ1S6jzzHk8
jjN3Hs7F5fG16EFbpLwsXG1L7So9UGk9aWLCejAP69J+++Pz+rzeVtzYkGiK
lpZWEOn/mzHEEno8nelLnVwWm0thPnNjT7ptHGPKZvnRhzXPmGpTNxpl4xzz
4q2SCLbmNXNjyTr5KEsP6q7PH3hotJC+efXuIdYKDDiPVThqDGHS1Ki6y7LH
EF89vVZjiQMh3IR+lgcixN5N9honlLaw1DdZ/jBXzKbaaQDbI+cG5/x2wmnn
og/Utq9B88lb0PzGBf2XyKir7F0In/V/1/J7DBorMpWtEVFw+Gpx6ERILBTR
Y0Z/TUXDOmIoYNv5eJyymbPQd+EhjttqlUoRYIWwvq3mziHwvYPWMJCModMC
VmBrHPQv7LFw8UuD22eH325QJ4CX+OZ6oiQTPT4dMaPGArjzUtanBWVhcDK4
OdcrCaU6w3LRzWzo3vekhu5IwbVe2k6P2Fx8WxJv91yZhu2B44aLpvOw9dKH
pXu6M9DzXmyTqhBh/ePxqIB8IbQrpRxP90IEpH7s+3giCxULnATjTjHsBy4Z
OXZkg1bU/0YRXgzzylU+no9ycGtEb7/nsAQPlzrv6JnIxdG92h7Cwu9xamaE
bbk8H3Mvz5YWlJdCL8Wn39RDhKfZXVqRO6Rw6AxgSDcXoMPphIXYXoaYPXO5
w98VomPT3+5XJmTgqYLPnxGKsYrDe2x1pgzzl4OPLCspQgb/V6e76eU4vm5m
+TfniqHzOi2zDBWgc/xqDK9IkJRnlPbDskoUP/KiNo+XIMzw6SdPhyuxVefQ
Al+3FFEU3cLVTXJcFMgmLktKEa67uKv3aBVazenqfEspMuIOjx1gKFDQMKgU
tUhhcEe3wWNeAbvE2Y4BRxnEvum0XdeOISTzoEqqksHZgsMXF1UjMtq1W7yl
DH00nfTFu2swn8E5/eaPMhRELC2sXaWEQKAqrthXjram7VahL5TovJTfnj9Z
jlsLgv1R7cch8qi9MZJZAaPef5pTEmvBkBo8zNKrRNOWtYEJtnU4an5joKim
EtMO72hekjokzT9f+cJBjgebeJsMpuqwu43NSTwvR/u+2/epofW4WaeXlOxf
Bduul6O6nfWw5pvILt6uAlu8vNtkZQM2iITvfMMUOMB1fRWa1YDhAYYfc1wB
s0PalTXDDeBT/IsE8cdwNbtbTg9shJDbojLVrcaTq47rjYlnXKgxDsTTBvVq
a2IeNWoJk9hSnqO9gXhb84pwLnHKKf+DscR2U6LpZuIv7t3xvkesTt5n57ao
GjLb0RHl1kaslFpLOHrVaOaFCU8SS7iZLlzi7rPXTC4QU1wfPUwgfsU4HdxP
PDEoWy0n9g2K66QENaLbjNL7mHhW8L54P3F087O3PFo1lvzMtztCPJTspUgj
ttF+ohISB7OrmCXEnKLeGQWx+1Rw8U/EJ2vzItXE+q49tnPEvX/O/PuAWEg1
VdPo1RhcE1MxQjw9KIg3JdZpD7i+QPwk+cseb2KT+a69+sGN2M4WR3OInbwd
PhoT95m91OcS++UcV9gQe02xziUQR/R96upM/GOPMiyP+D+DOzMr
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx308FHYcwHHOTu6oWemlPI0Q1Qzx8jTxvUhycje1KF7FrStdt4Q6z5xn
jjN33J0LeXyt04O2SHlZ7qu2pXaVHqi0njQxYT2Yh3Vpv/3xeX1ebxtOfDiX
oqOjE0b6/xbeIjE9ke4fSJ1cFp9PUT/zYE56bBzzl87yuYe1z9Qacw8aZeOc
/8Vb5dFM7Wv1xvJ1ilGGAWi6P3/gpdXBzM2rdw8xVsCA65jMWWuMZi3NvXcZ
jjDE10yv1VrjgXBOUj/DC6JFfi2OWhesaGVobjKCwVI5m+6gBbQ/cm5wLmgn
uOxc9IHa/jXSAgoWtL9xgP5LTOxV5i6Mmg1+1/p7HDTLsuvaomPR6avFERPh
8aDkjpn8NcVF2+ihkG3nE+GU3ZyVoRsPEzhtNukUAawQNrbX3jmEfL+wNd6Q
CkOnBYzQtgQ0vLDHyi0oAzw+O/x2gyYJeclvrieLs0Ed0Bk3aipAT17a+oyw
HBicZKnyfVOwQm9YUXQzF/Tv+1AjdqThNaTt9IrPh2/LEx2e12Xg9tBx40XT
BbD10oele3qyUP1eZJeuLIL1j8djQwqFqCuXsH08SyAk/WPfxxM5KFtgJ5l2
icBx4JKJc2cu0kr73yijysBSvirA51Ee3hox2O8zLIaHS113qCfy8eheXS9h
yfdwamaEab28EOdenq0orqoAg7SAfnOvInya260Ts0MCTl0h3pLNxdjpcsJK
5CiFuD1z+cPflWDnpr89r0xIgdfLOn9GKMJVbN5jmzOVMH+ZdWRZeSlm8X91
uZtZBcfXzSz/5lwZ6r3OyK4EGdDZQbXGV8SYUmCS8cMyOZQ98qWqxssx0vjp
J0+H5bBV79ACX78CYyn6JatbFHBRIJ24LK7AKP3F3Xi0Gtos6ZpCawlmJRwe
O+CthOKmwbqiVgka3dFv8ppXgkPybOeAsxRFgZm0XdeOQXj2wV5JrxRdrdh8
UWkNxHDde0RbKrGPppe5eHctzGexT7/5oxKLo5eW1K+qA4Ggt0y2rwrbW7bb
RLyog65LhR2Fk1V4a0GwP7bjOBR51d8YyZahCf6jSkuuB2+J0cMcAzm2bFkb
mmTfAEctbwyU1spx2ukdzVfcACnzz1e+cFLgg028TUZTDbC7nclOPq/Ajn23
71MjGuFmg0FKanA12ne/HNXvagRbvpn04u1qZIqW95itbIINRcJ3gZFKPMBx
fxWR0wTDA95B/uNKtDikK68dbgI+JbhUkHgMr+b2KOihzSDktPaa69fgk6vO
602JZ9yocU7E00aNGltiHjV2iT+xtSJPdwPxNtWKKA5x2qngg/HEDlNF0yri
L+7d8btHrEnd5+CxqAal9qMjdVubYaXEVsw2qEEVL1J4kljMyXbjEPecvWZ2
gZji/uhhEvEr79OsfuKJQelqBXFgWEIXJawZeiwo+Jh4VvC+bD8xV/XsLY9W
g0t+5jscIR5K9VVmENvpPukVErOY1f7lxOxSnFESe06xyn4iPllfEKMhNnRX
288R458z/z4gFlLNNTR6DQ6uiZONEE8PChLNifU6Qq4vED9J/VLtR2w2373X
kNUM25kiLpvYxc/poylxn8VLQw5xUN5xpR2x7xTjXBJxdN+n7q7EP6rrIguI
/wOHvVor
          "]]}}, 
       {RGBColor[1, 0, 0], PointBox[{182.60467337262415`, 20}], 
        PointBox[{2471.3741254234565`, 20}]}, {
        PointBox[{181.78536160165342`, 0}], PointBox[{670.8193117709708, 0}], 
        PointBox[{2471.596150764613, 0}], PointBox[{669.7779746588434, 0}]}, {
        PointBox[{286.053161489916, 200.29658000395864`}], 
        PointBox[{286.053161489916, -200.29658000395864`}], 
        PointBox[{1053.9468385100827`, 737.9815211970515}], 
        PointBox[{1053.9468385100827`, -737.9815211970515}]}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx30wFHgAh/HNRXG9WMylJHVySUkUqSzfYy5vkbaMdEoWq93pbZeUqJCN
XcR6J+ybd7LpxaiYSK4X2yVL6A1zmCxdkk7ao/vdH88881nDOEkP1aBQKN6k
/x9zduKtv5KJL2ETvpqUrbj/9MBgxygTrZTnlk7bbaFh3DLkSgmDMP+aZhTX
DoktwjFbyzCsbmffHh+yR4bOlhlqYhg8Ng0bdD2hoaLwtMHTHUfh822c9eKJ
C5TN3zx2SFkQNQ+aizO9YKGt2bCCcwySslBlceYBWJR+yxt24SDRrCs1ZIQJ
3mDYxTyjCESypG+iwk7B1NR4peZwJGw8y3kDzqfx3aE5aVQVhQGuc1BV4jlI
uL3F5k0xWOvGA4d7EXGx7xL62y+i1tqq0is4Hp3uObrmzDg8n/9g5ySFB9fB
MzdTFfForDX3yeYk4nWIj6PV3gRIo1/Njv4kAD3yL+O5ezzsMzliSUtLAVtQ
0Ftpkgj+wpQRE/UVSARu0UJJEgIEcStfPUvHPcM6bpm2AH3qssuyBRmYytCl
T6clQznHaWr7PRPPl2YtMluairS1unfklVlIWdFpFBtxBddt874YDmaDRV2g
v+xrGvb0ts29ssmFgWe0/MP1dOxjvnVbeSIPly6dePIhQgglryCwvjUfzk2f
fQJsM2Dw2GKnof5VfKa9jB98n4HGLyV+M56FuLn1VkVCdSYGbj3EFlERQrkf
zzoGZYEd+Cd7/HUxjtY11jP1sxGQ011jpy3GOSbvfU1XNprbcgSyOjHOM6of
avNz0KNSLOzwliC9S5GVsDsX13p9P5jPSDDlGtt5fFEehvzcboWKpXDXEN49
fj8PzxRyI4aDDLU2RTnJcfk4rcMeFQzLML9Ky7jZrgAdtHy/8EslqP5Zgxr8
vgApGjYVTqtKEUSd+WpaeRVa6caB9n+UQtvVK1kdUIgt+hfqJxhlaJ4spH4y
KcKqQOuI7kXlYA27O892F6FR7N8ZVV2O4L6kgTNJxWgMH9PTcK3AMZdWrq6H
COeWdtyp/1gB5tRB+f05EVTi9fM2pFaiYfH0yV1BYhiqu2vbt1VhWKLtFNIi
RsXImKNPfxWS+zyCFxtJoHoUeTIruhrbFfy432IkGOPs19I0q8ERxvTUwh4J
RNRymm1rDaxmLEU/bJbitnOwn/vha9DyZLikpkvBd+D28LVq4Ys2B6lKiiUb
/5nmy2pRM2G2edduGehDigv1XnLYp2x7s5fYWJj38ilx2zr3pEPEKlrIpn7i
d4ePDUQQx+Wq3y7wloP67Ea6jPiGhwXNnziy0ukTxUsGvbpEtZoYDP8b94hf
nHc++6uPHIpZ9uFHxIUWSzp8if3zY3SUxKyevnVsYm6HiKEiplhzejKISx1H
9JZ7y2A9JLIbItYxCg+PJBZ6zE5d3itHbn2CSTzxoenHu68Sr6XntKcSW5Rk
lciJafw7pqXELbMb9vcSn5r+rlQST14/eHM9XY5/M6ix/cRNh3750ZGYv8l0
4xixQGeSQSeWhu5K0Ngjw5oQvl40sdW8A5uXEP+t68tOI24sZL1ZTny3afUD
GbGbfXSSGTGPPb68gbhbmbLVmpi+rIGjIP4PhoNRRQ==
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx30wFHgYwPElyaq81DbSkg5N6ip670p62CK9SDt1w52MvOxarSsvR1oK
rbEvtliRl2XtLkqE3ZqulPOYaq6y3ckWuV4wYrycK9msJXW/++M73/l8F36K
GWVKoVACSP8/9czHt8E6FvjVmPGM3zZBy9OgvvZhFugSI3u8MzaCqWPrez8K
G8LgIUNkugGyW/NGt6xjw+KGefZbLdeC1HKT0TabDcXzzT1TaCvgmuxX2tMd
0XB6TG8wCbFGHU7v36HkgPS9idHYuRPXUOfeWRbHhRIHn595o0xcUzVdNMCI
g0yj2DAnloVZfezzRfRECK3rH1y9Jw5dXBwd5g4kgcyKMXRyUzJ+80TB8EgK
NNHsKuJVaaiIf1Xu1pwK3OtU65aODMxIf8fvaTsPXAef1atoWdjhX2jjxsqA
ZnZpQIivAP36km9KtJlg027Rle8txteRgV7uR/jAFDU2rUu7iMykfsev97Kg
zeM2ZQBzMUZU8qrGKRtowsqa4p1SVIj28fIUAvjR0iP9fGc+3luqjq+mimBp
yV7B4LEC1EttmIZLYuhgTjWf+1yIf1lfXrDSWgKbz+xMSZMUYc6yDnp64kWw
q7NgzVJLkGM7b7Hd1CX4ZJGQXl9dirQDvIaxxlw4mMjW9q4qwwsXfnkylpgH
cgvj3j1PytGneSIwZIsUtHyJc/aGCpzY1ZnZNyQFUU5/U93HCry5+dY1fm0+
PHCzGBlpUWBU/IczXicug6d2XM3JUGK0+v5t1uICsKxW3afvVuFZVtZQ3YsC
OEpzDR1cUIlp4bUPqcJCeCvkFI1rKzH3hfYy/+AV6M9P4ywpq0K9X3pH7IIi
2PUiOI3LqUZ/07ym2JYi6KLPrDZzu4r1G8sKxRnFMGaIib01eRXNrps74tYS
2PNa7l/12zWsdTa1jRgqgX/1sugniTV4wtY45VJTCjRV9HJzn+tI9TskngmR
AS/IyL1gUov4SWY77lQGx5VBTPvntcgZ8PeZfVkG6ROp7R+kdRjRLehNFpTD
1FlOnjHwBnIZD+Jt9sthtNB1mO5Ujyz9Tw0tX+Xg2FTZfa6nHu8sNJzyPVEB
z+ImwqYbGnBAQd0d2VoBQ+5ZBUe9GlHcvT9iIV0BwjUTvtqyRvxBK8zYm6oA
zqnHjMC5agwLN+gtuhQwvI0i0Uep0d24Tj7HQwn5dFmy5qEazQ+EMyS5SuD5
y2+kfq/BY/DIUzmihDkzZh5ssQbrPq708D2ogseTz2ePT2hwe862N0eIT89E
n4whfrTKX3Cc2J5C6U4ifhfK7U0k5lDX37pEbPtMk6sinu8gimklTqrZPU45
pIIAb58uV70GITxYc49YJ9Y0jhJrZ2NC/yA+m+u/fIo4uDjVUkfsUtArNvus
wfh2efgIcUK5FduRuMprcJF9gAqWqGMcDxNb0hMSkoiDOp1FGuIrt/lOmcSU
13cNvxO7MgvbJMQ1PYFRbcS7hHddqoinh87Be+LThm86HXHpzN+TSyY1+EVq
m95DzKDERzoTC9e7rB0l/seM2rGeWBnlyzc9rAJPq203/IjdTYI8rIgHFv25
7CjxfRnnjT3xRbsoQRjxvu08wUriLQ5fPnOJX+pyNm8gfrciPyKF+D9DA3pv

          "]]}}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0ms01HkcBnBDN8REpejiktYkUvmPEss3IpdpaJBha0ezjd0NR7lMSbUm
GXeNMTOZ3GbmX4ywjpmQiF9ZJKXZttAW2xG5pNSptGvF/vfFc57zefW8eSzZ
sQyOtpaWFp3I/301Ot5+RwCO5EcGDIsbcRhQNs9RaDh6FgqvjBtwMBjVeWDh
iyNjhrIx8wYO3COi4ys8cZTqfTriVB0OPvT6imknHB1zWKtiVOEw5fDF8teN
OLIhMUN0y3DAPp4x2fpOgaqv9hdx+Ti0J11YsM5VoIY3fZSDITj8VH87qPOW
HEXE36i7M6kAwZAwlTkjQ4J+6/m96QpwjRhc10GVoRnLqQ/1mxXwwkIZ3dpd
it5zhMGjzXLwOtzNfOJZgk7we85Yh8mh+ZOHr1dJEUqTvSKbv5OBs1uFXtS8
FD2SMWgGaTJoYbunxiUXItm5YJr+JhnQRhy0nvZLkL7yODfzZBkMQzBmGihG
IwaM5+uqSiGF/oOzsaYAUWAsTzxeArZN9z0iHYRIxNljwV9dAn/Oc3SKrwuQ
4T71bklgMdh7qgVhenmodvXktg3JRdAwGdsy0puFWtW98dmVV8DPR3TIsScd
Deg9czd9LYUvrJ//2cW/iNaHyCc2GEuh1r5cTyuJh2KYl8w8aIVAirLxnQs+
i0bpLlsGEy/Db241qKcvEXUbifksXAIuXxfZ7hPEopbcVVGkv8QQxIn7fC+G
jfrmDtqb6YkhQjI7EVPpg+at67kMTxHk7j8/UhOzH4SmnYZxKQXw78tZ3/DX
bDhAEl9cViOEkdBdR12MY2GNIpPXOpYP1PgBW4UlF5Y5uR5+Y5QPTO7xo0FF
Z4EjKU5bcBeAii8ZbGXwQM7yio78Ow/M13aRNkovQufphxnNAbnA+3ipsaki
HZYtkqsD2rPhj+jUnjflWWBB0SSr3LJguV1n349juZC5M3lBW5oBJVc0zitO
C8Cg9mS+kJwONndHU402COGl0cgQmZMG1YZdJjvKC0DzWr7nQV8qbLl+e6DI
RgyXg5sdQwMvgHT8O0lVtwRqlIHjj5QpoEPrLH4WUAhokH2I7HIejjIGSqtn
pHDXaX1Q+PAZaKxYeHRfXASJd3KyPKSnYKnVR9+lpiUQsV00pMxIAH/3vLbx
llIYjyqonKSehA4065ZgJYODa4KsQnZFQ4RuU710WAaOt95Gkq0iIWGT/3Uj
tRxqp6Z3koxYsDjQs70wkfjtZ5beizYGrKCTw+N8cJjuaJkRFlKh7lpFXjbh
J5+8b24XUoHx1b39KuGbm35P6s2mgqj6hF0/4RTe6JzuL1Qw1X887+KLg8bV
UIfHoYLVPRG+2A8HlZpFjt1JBczD7G2hPw4Jcm2K/wMMnkpVlirCTE3OxHgH
BtwPfod6CLsumFTx2zC4KUtu+0p48ZGt2+6qMPh24UU+m4ZDyNpgzFmKgXdL
mZPdARycLl0Dm0gMxlbujvIibNbqoN3BwiAjSlP2PeH5qaZ2dhgG981IuvmE
u/x6vUtpGNCT2M8/E2Yu+UJb7YjBtGaWTKYT+1SeodoOAwGlYB+FsMUxfU3g
Nxg87m+vCSc8ccc8KMcUg3iHw8PxhB++r1xluxKDVemfTHIJ15ljfV3LMWgY
yvEvJxxCb73MWYJBqNPmlDbCzud8wnS0MPgPZNNLQQ==
          "]]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVz3k81Hkcx/ERJR07Ug8btkJasjzEr2FnVb45asYxylhnCaXDkDKaiKxr
KecwgxkMY37TjCyxLF3k81gidExSVLJlqbakNDVq1rG//eP9eD2ef75NwmN8
IhaRSCQGsf8rjWJb23rj8G4wSVSaLIXhmuuzFp44rFrLyv6SJIWVE5q3jek4
2AcHng5MlAJnPz9S1wWH5BeUvUbxUqAxWuTv7XEgT01pVZ2UwqTNjMml9TjY
aodFyQ5JYavyjP4PUxKIo7o5trhLoTMhbcEsTwJq0crHA/pSONrSzuy+Vg3q
YZ6AKcOBO1qUHqASgzIydIC2HYdtoc+MblLE4NBUf97rkQRGjGuibvRWQhTr
Q1fpYQm47esNGHQRQVliwhm/+Wq4/smZ7iYqh+tzM81BedVA3SFfxpoXwveU
mcjj66uhLdwpPTZRADmd2ypUrWLwHLchPRwqgRedp/d27RLDGPLdarCnGELt
P2qsbKuCFMZBqp6CByXequDGqUqwvNrnfNimCBo8J9pHyZXwZD5Cs6KWC9dm
QteonERg7dLMDVyWD/LMnlhBSAW0volpG7+bDdYpNrcDU8vBncb3w/qzADc3
M9RqLoOZA8e+OmRmwHyT5gnqAyE0WMuWkRJSwX0y5pr/IiFosMzps75JEK/T
s0LDWABdO+qh/9EpcCrcENS7sxQc57QsXbkx8KVbq+JMbAkwI2I/34oOB97z
wYnWQuJHifqf6Is0MK2xNRvp4EPe7uTx+ujdaPeTgv3GH3nw73M1PehlOGJ8
GK58r8eDcX+HMEe9GET/49Kg3LkIKOxhS4kJB23aF6P3NrQQAjiRYczyJFR2
3NbDK50LTZklz274pCJSCGl6y7EC2LC2R2O9MAPxZOzgZzV5kKosuHxVnoWW
e5AagpfkwoOo9P63smzU2FXw5duobFhh1f3oyKs8tG7J571vLp0DUZmCqhvP
RVE4m59PzgLzPyfSV60rQmlLb72kef0Kdd/06NvKeCixl2L6sCYdNte2D5eb
FyPpARmzakUaCF8Hl/zWW4J47ZP8X7xSQNOzu+KxtwDdnhIkHww4C2E+w5V1
KiGandZUKu8lwGX5wr2+4nKUUxXHJAVwQNtUSdc2EKG/tdZmNhqxwcMpv+N1
WyXKVt5pNMBi4Caod8SZitGI5/2vBrKjEKpztUU4JkbT6r8M9X4Kh7iNHrWr
mqvRTm6OqivDDxbvcekUnJKg/NWupDfaLqDLIAfF0nBEVR8avbjHDv1+QZ6f
Q/hnao/FEX875DPn1CklfDJ+M9ssxA7x605YDRGuVb3TrmLZIYPlA/OOdBwd
UHJs+Zl2yPQWH1/sjqOMyXMZyW12aKuz4TuBB44Uo3WWTAsMPRQ2mTQRnlxH
PqVrgyHOtLtfP+Gl+0923KFg6Io4sWOOMHpK8aW5YGj7wkhhuCeOVEM3zm4P
wdCutip7Ky8cGd1XKMz5GHq1+keWG2EHXcxoogxD51iKqhDCvt7FEZJqDPUZ
augUEs69E6j+rgFDjITwp58Jz/WObdTrw9B7hZpMZuDIQMft+D0FhrgWPFcL
whSa/EruEIYGhjrrgwhHd7O8tCcwxLbZN8YmfH7x3dKutxhak/VJP4/wBdct
Y6kfMdQ6mushI7wko8jK6SuG/O03pXQQNu38xJldwNB/iht0UA==
          "]]}}},
      AspectRatio->1,
      Axes->True,
      ImageSize->180,
      PlotRange->{{-2471.596150764613, 
       2471.596150764613}, {-2471.596150764613, 2471.596150764613}},
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]}], "182.60467337262415`", "181.78536160165342`", 
     "29.8458436669609`", "2471.3741254234565`", "2471.596150764613`", 
     "63.13602962281906`"}
   },
   ColumnsEqual->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   RowsEqual->False],
  "Grid"]], "Output",
 CellMargins->{{31, 0}, {10, 30}},
 CellChangeTimes->{
  3.5328939024558544`*^9, 3.53289417294473*^9, 3.5328967616553783`*^9, {
   3.53289775928944*^9, 3.5328977659528213`*^9}, 3.532898904972969*^9, 
   3.5328990013284807`*^9, 3.532899175595448*^9, 3.532899299199518*^9, 
   3.5329716180391903`*^9, 3.5329730233280582`*^9, 3.5329730781777544`*^9, 
   3.5329737515149364`*^9, {3.5329741931517124`*^9, 3.5329742433682003`*^9}, 
   3.532975597587582*^9, {3.53297626806596*^9, 3.5329762807019825`*^9}, 
   3.5329775638978357`*^9, 3.532977670325623*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->{"RulerBar", "EditBar"},
WindowSize->{657, 643},
WindowMargins->{{Automatic, 3}, {Automatic, 2}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrintingOptions->{"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.375, 28.375}, {56.6875, 56.6875}}},
Magnification->1.,
FrontEndVersion->"6.0 for Microsoft Windows (64-bit) (April 28, 2007)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]]}, Visible -> False, 
  FrontEndVersion -> "6.0 for Microsoft Windows (64-bit) (April 28, 2007)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 155, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[748, 28, 188, 4, 83, "Title"],
Cell[CellGroupData[{
Cell[961, 36, 155, 3, 69, "Section"],
Cell[CellGroupData[{
Cell[1141, 43, 131, 2, 56, "Subsection"],
Cell[1275, 47, 1572, 32, 117, "Input"],
Cell[2850, 81, 1642, 29, 97, "Input"],
Cell[4495, 112, 366, 8, 56, "Input"],
Cell[4864, 122, 270, 7, 55, "Text"],
Cell[5137, 131, 725, 14, 91, "Text"],
Cell[5865, 147, 263, 7, 70, "Text"],
Cell[6131, 156, 228, 5, 55, "Text"],
Cell[6362, 163, 674, 13, 55, "Text"],
Cell[7039, 178, 826, 22, 117, "Input"],
Cell[7868, 202, 129, 2, 56, "Input"],
Cell[8000, 206, 314, 7, 73, "Text"],
Cell[8317, 215, 420, 8, 55, "Text"],
Cell[8740, 225, 227, 5, 55, "Text"],
Cell[8970, 232, 734, 21, 71, "Text"],
Cell[9707, 255, 209, 5, 55, "Text"],
Cell[9919, 262, 1055, 31, 87, "Text"],
Cell[10977, 295, 163, 3, 55, "Text"],
Cell[11143, 300, 1226, 36, 117, "Text"],
Cell[12372, 338, 249, 6, 55, "Text"],
Cell[12624, 346, 728, 18, 70, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13389, 369, 292, 6, 56, "Subsection"],
Cell[13684, 377, 1245, 34, 104, "Input"],
Cell[14932, 413, 559, 13, 77, "Input"],
Cell[15494, 428, 614, 13, 97, "Input"],
Cell[16111, 443, 268, 6, 55, "Text"],
Cell[CellGroupData[{
Cell[16404, 453, 928, 22, 77, "Input"],
Cell[17335, 477, 1150, 25, 123, "Output"]
}, Open  ]],
Cell[18500, 505, 1584, 34, 128, "Text"],
Cell[20087, 541, 1052, 29, 111, "Input"],
Cell[21142, 572, 79, 2, 45, "PageBreak",
 PageBreakBelow->True],
Cell[21224, 576, 221, 5, 55, "Text"],
Cell[CellGroupData[{
Cell[21470, 585, 698, 18, 77, "Input"],
Cell[22171, 605, 654, 14, 123, "Output"]
}, Open  ]],
Cell[22840, 622, 735, 15, 89, "Text"],
Cell[23578, 639, 751, 19, 56, "Input"],
Cell[24332, 660, 208, 5, 56, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24577, 670, 345, 7, 56, "Subsection"],
Cell[24925, 679, 1271, 35, 104, "Input"],
Cell[26199, 716, 559, 13, 77, "Input"],
Cell[26761, 731, 741, 15, 97, "Input"],
Cell[27505, 748, 79, 2, 45, "PageBreak",
 PageBreakBelow->True],
Cell[27587, 752, 268, 6, 55, "Text"],
Cell[CellGroupData[{
Cell[27880, 762, 1131, 25, 77, "Input"],
Cell[29014, 789, 1189, 27, 123, "Output"]
}, Open  ]],
Cell[30218, 819, 1584, 34, 128, "Text"],
Cell[31805, 855, 1104, 30, 111, "Input"],
Cell[32912, 887, 221, 5, 55, "Text"],
Cell[CellGroupData[{
Cell[33158, 896, 698, 18, 77, "Input"],
Cell[33859, 916, 1015, 20, 123, "Output"]
}, Open  ]],
Cell[34889, 939, 867, 18, 89, "Text"],
Cell[35759, 959, 751, 19, 56, "Input"],
Cell[36513, 980, 208, 5, 56, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36758, 990, 267, 4, 56, "Subsection"],
Cell[37028, 996, 155, 3, 70, "Input"],
Cell[CellGroupData[{
Cell[37208, 1003, 134, 2, 56, "Subsubsection"],
Cell[37345, 1007, 2224, 62, 237, "Input"],
Cell[39572, 1071, 1231, 22, 131, "Input"],
Cell[40806, 1095, 1564, 30, 111, "Input"],
Cell[42373, 1127, 103, 2, 70, "Input"],
Cell[42479, 1131, 26351, 706, 1894, "Input"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[68879, 1843, 241, 4, 30, "Subsection"],
Cell[CellGroupData[{
Cell[69145, 1851, 68, 1, 56, "Input"],
Cell[69216, 1854, 82191, 1396, 795, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
